#!/Perl/bin/perl

use strict;
use warnings;

my @time = (localtime);

my $formatted_time = ($time[4] + 1)."/".$time[3]."/".($time[5]+1900)." ".$time[2].":".$time[1].":".$time[0];

print $formatted_time;