use strict;
sub new {
	my $class_name = shift;
	my $self = {};

      #want to do something like this ...
      @self->{sec,min,hour,mday,mon,year,wday,yday,isdst}=localtime();

	bless ($self,$class_name);
}