use strict;
use warnings;
my $sec;
my $min;
my $hour;

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

##</code><code>##

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

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