#!/usr/bin/perl

use strict;
use warnings;
use POSIX;

my $time = "08:30:12";
my (@time) = split(/:/, $time);
my (@lt) = localtime();

my $secs = mktime($time[2], $time[1], $time[0], $lt[3], $lt[4], $lt[5], $lt[6]. $lt[7], $lt[8]);

# Lets check if the $secs return the correct time...
my $today = strftime "%D, %T", localtime($secs);
print $today , "\n";

exit;