#my $return = `identify -verbose  $file`;
#print $return;
my $pid = open(my $fh,"identify -verbose $file |");
while(<$fh>){print }