use Prima;
my $a = Prima::Image-> load('a.tif');
my $b = Prima::Image-> load('b.tif');
$a-> put_image(0,0,$b,rop::AndPut);
$a-> save('c.tif');