use strict;
use Prima::noX11; # for cgi environment
use Prima;

my $i = Prima::Image-> load('1.tif');
$i-> size( 1024, 768);
$i-> save('1.png');