use strict;
use warnings;

sub localtime{
    my $self = shift;
    my $time = shift || time;
    my %hunt = ();
    my @fields = qw(sec min hour mday mon year wday yday isdst);
    @hunt{@fields} = localtime($time);
    $hunt{year} += 1900;
    $hunt{mon}  += 1;
    return  \%hunt;
};
1;#########################################################################
#__END__
use Data::Dumper;
$, = "\n";
my $m = bless{};

print Dumper $m->localtime();

$VAR1 = {
          'wday' => 0,
          'hour' => 13,
          'min' => 0,
          'isdst' => 0,
          'sec' => 53,
          'mon' => 12,
          'yday' => 355,
          'mday' => 22,
          'year' => 2019
        };