package Tie::Timer;

sub TIESCALAR {
    bless {}, shift;
}

sub FETCH {
    scalar localtime
}

1;

__END__