Select Code to Download

$ perl -MTime::Piece -le 'print prototype("CORE::localtime"); print pr
+ototype("Time::Piece::localtime")//"undef"'
;$
...
my $x = main::localtime();
my $y = main::localtime(-$x);
print "$y\n";