#!/usr/bin/perl 
use JSON;
use Data::Dumper;

while (<>) {
 my @hosts = ($_ =~ /"hostname":"([^"]*)"/g); 
 foreach (@hosts) {
  print "$_\n";
  `ssh -i /root/.ssh/id_rsa.pub conetadm\@$_ 'grep "\sro[\s,]" /proc/mounts | egrep -v "tmpfs|9660"'`;
 }
}