package Timer::Runtime;
use strict;

use Time::Elapse;

Time::Elapse->lapse( my $now);

BEGIN {
    print "$0 Started: " . ( scalar localtime ) . "\n";
}

END {
    print "$0 Finished: " . ( scalar localtime ) . ", time = $now\n";
}

1;

=head1 NAME

Timer::Runtime

=head1 SYNOPSIS

Wrap a script up with only a use statement to denote its start, stop, and duration times to STDOUT.

=head1 DESCRIPTION

=over

    use Timer::Runtime;
    
    #  output
    <script_name> Started: Thu Aug 12 20:34:49 2010
    <script_name> Finished: Thu Aug 12 20:34:49 2010, time = 00:00:00.000114

   
=back

=head1 Author

awohld

=cut