open (PNG,"barnswallow.png") || die;
$myImage = newFromPng GD::Image(\*PNG) || die;
close PNG;