#!/usr/bin/env perl

use warnings;
use strict;

print_cur_time();
exit;

sub print_cur_time  {
    my ($Second, $Minute, $Hour, $Day, $Month, $Year,
        $WeekDay, $DayOfYear, $IsDST) = localtime(time);
    $Year       += 1900;
    $Month      = sprintf '%02d', $Month + 1;
    $Day        = sprintf '%02d', $Day;
    $Hour       = sprintf '%02d', $Hour;
    $Minute     = sprintf '%02d', $Minute;
    $Second     = sprintf '%02d', $Second;
    print "Today's Date is: $Month/$Day/$Year $Hour:$Minute:$Second\n";
}