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