or download this
print "$login_time\n" if $self->{'debug'};
my ($dbyear, $dbmon, $dbmday, $dbhour, $dbmin, $dbsec ) = ($login_time
+ =~ /^(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)$/);
print "$login_time\n$dbyear, $dbmon, $dbmday, $dbhour, $dbmin, $dbsec\
+n" if $self->{'debug'};