#!/usr/bin/perl -w
unlink $0;              # Delete myself!

print "Still here!\n";  # Prove that script executes okay
# Rest of code follows ...