perl -de 'print'
...
main::(-e:1):	print
  DB<1> my $x = localtime

  DB<2> x $x
0  undef
  DB<3> p $x

  DB<4> $t = localtime   

  DB<5> x $t
0  'Tue Jan  3 12:28:40 2012'
  DB<6> p $t
Tue Jan  3 12:28:40 2012
  DB<7>