C:\test>copy con surprise.pl
#! perl -slw
use strict;

unlink $0;

print "still here";

print for glob $0;

print "Still there also";
^Z
        1 file(s) copied.

C:\test>surprise.pl
still here
C:\test\surprise.pl
Still there also

C:\test>dir surprise.pl
 Directory of C:\test
File Not Found

C:\test>