my $image = Image::Magick->new;
$image->Read ($filename);
my ($h, $w) = $image->Get (qw/height width/);
$image->Resize (width => $w*$value_between_0_and_1, height => $h*$value_between_0_and_1);
$image->Write("png:-");