$ cat > try.pl
#!/usr/bin/perl
print $0, $/;
unlink $0;
print "Feeling faint . . .\n";
$ chmod 755 try.pl
$ cp try.pl try.bak
$ ls try.*
try.bak  try.pl
$ ./try.pl
./try.pl
Feeling faint . . .
$ ls try.*
try.bak
$