One minor suggestion; I'd modify

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

to

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