Help for this page

Select Code to Download

Select or download this

BEGIN {
   my ($add_ts) = @ARGV;
...
}

die("foo\n");

Select or download this

>perl test.pl 1
[Sun Aug 23 11:52:55 2009] foo

>perl test.pl 0
foo