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

##</code><code>##

Instance METHOD IS  $VAR1 = {
          'hour' => *Time::tm::hour,
          'AUTOLOAD' => *Time::tm::AUTOLOAD,
          'struct' => *Time::tm::struct,
          'yday' => *Time::tm::yday,
          'mon' => *Time::tm::mon,
          'BEGIN' => *Time::tm::BEGIN,
          'new' => *Time::tm::new,
          'mday' => *Time::tm::mday,
          'wday' => *Time::tm::wday,
          'min' => *Time::tm::min,
          'isdst' => *Time::tm::isdst,
          'DESTROY' => *Time::tm::DESTROY,
          'croak' => *Time::tm::croak,
          'import' => *Time::tm::import,
          'confess' => *Time::tm::confess,
          'sec' => *Time::tm::sec,
          'carp' => *Time::tm::carp,
          'ISA' => *Time::tm::ISA,
          'VERSION' => *Time::tm::VERSION,
          'year' => *Time::tm::year
        };