#!/usr/bin/perl

=head1 SYNOPSYS

A small program that does trivial things.

=cut


#here is a comment
sub doit
{
    my ($v) = @_;
    print "it's " . ($v + time()) . " seconds since epoch\n";
}

doit(2);