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