open SELF, $0 or die "Can't open myself $!\n";

print "My name is $0\n";
print "I am ", -s SELF, " bytes\n";
print "That's ", -s $0, " bytes\n";

close SELF;
unlink $0 and die "Deleted myself, I'm outta here!\n";