Select Code to Download

 print "Instance METHOD IS  " . Dumper( \%{ref ($current_Time )."::" }
+) ;

Instance METHOD IS  $VAR1 = {
          'hour' => *Time::tm::hour,
...
          'VERSION' => *Time::tm::VERSION,
          'year' => *Time::tm::year
        };