#!/usr/bin/perl
use strict; use warnings;
=pod

=head1 SYNOPSIS

stopwatch

time stopwatch

=head1 DESCRIPTION

Stopwatch timer. For more accuracy, wrap it in a call to time.

=cut

    my $start = time;
    print "ticking... ";
    <STDIN>;
    print time - $start;
    print " seconds\n";