Select Code to Download

[foo@bar test]$ perl -de 1

...
main::(-e:1):   1
  DB<1> $time = Time::Local::timelocal(0,0,13,26,8,2009)
Undefined subroutine &Time::Local::timelocal called at (eval 7)[/fooba
+r/system/pkg/perl-5.8.6/lib/5.8.6/perl5db.pl:628] line 2.

[foo@bar test]$ perl -de 1

...

  DB<3> x $time
0  1253962800

[foo@bar test]$ perl -de 1

...

  DB<3> x $time
0  1253962800

[foo@bar test]$ perl -MLocalTime -de 1

...
Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.