Select Code to Download

use strict;
use warnings;
...
my $hour;

($sec, $min, $hour) = localtime();

#!usr/bin/Perl
use strict;
...

my $results=`perl stime.pl`;
print $results;