#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

my $blob = `import jpg:-`;   
#my $blob = `import -`;  #postscript produced
#print "$blob\n";

# now $blob is in memory and you can do what you
# want with it.

my $output = Image::Magick->new(magick=>'jpg');
$output->BlobToImage( $blob );
$output->Resize(geometry=>'160x120');
$output->Write( $0.'.jpg');


# png works too