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

>perl test.pl 0
foo