sub from_string {
    use Date::Manip;
    my $self = shift;
    my $string = shift;
    my $time_t = &UnixDate($string, "%s");
    $self->{NOW}=(defined($time_t))?$time_t:undef;
    return $self;
}