sub new {
    my $class_name = shift;
    my %self ;

    @self{qw(sec min hour mday mon
             year wday yday isdst)} = localtime();

    bless \%self,$class_name ;
}