my $date = localtime();
&print_date();

sub print_date
{
    print "$date\n";
}