my $P = new Image::Magick;
$P->Read($ARGV[0]);
my ($fsize, $msize) = $P->Get('filesize', 'memory');
print "Filesize: $fsize, Memorysize: $msize\n";