package hoge;


my $class=shift;

$ENV{'TZ'} = "JST-9";
my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time + 9*60*60);
my $obj={'sec'->$sec, 'min'->$min, 'hour'->$hour, 'mday'->$mday, 'mon'->$mon, 'year'->$year};

return bless $obj, $class;

1;



適当に書いてみた。あとは時間をｺﾞﾆｮｺﾞﾆｮするだけ、普通に作ったほうがメリット大きい気もするがｷﾆｼﾅｲ!!
ﾖｳｶｿﾏｿ参上===[・∀・]ﾉｼ