#$x=$img->Read($file);
my $data=do{local ( @ARGV,$/ ) = $file; <>};
$x=$img->BlobToImage($data);
warn "$x\n" if "$x";