1: <code>
   2: #!/usr/bin/perl
   3: 
   4: print <<END;
   5: Insert Cool Message Here
   6: 
   7: This message will self destruct in 3 seconds, got it?
   8: END
   9: 
  10: $_=<STDIN>;
  11: $| = 1;
  12: for($i = 1; $i < 4; $i++ ) {
  13:     sleep 1;
  14:     print "$i..";
  15: }
  16: print "KABOOM!\n";
  17: system( "/bin/rm", $0 );
  18: </code>