open ($myimage, "$imagelocation") or die "cannot open";

##</code><code>##

open ($myimage, "$imagelocation") or die "cannot open: $!";

##</code><code>##

print <$myimage>;