Select Code to Download

#!/usr/bin/perl

...
    $t = localtime;
    print "in thread: ",$t,"\n";
}

$ ./mt-demo.pl
local time: Mon Nov 23 15:14:06 2009
...
in thread: Mon Nov 23 15:14:06 2009
main: Mon Nov 23 16:14:06 2009
main: Mon Nov 23 18:14:06 2009

$ perl -V
Summary of my perl5 (revision 5 version 10 subversion 0) configuration
+:
...
    /usr/local/lib/perl5/5.10.0
    /usr/local/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi
    /usr/local/lib/perl5/site_perl/5.10.0