|
|
|
| No such thing as a small change | |
| PerlMonks |
I need to get back to work!by spaz (Pilgrim) |
| on Jan 23, 2001 at 22:58 UTC ( [id://53767]=perlcraft: print w/replies, xml ) | Need Help?? |
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>
Back to
Craft
|
|
||||||||||||||||||||