use strict;
use warnings;

my $d = &Date();
my $t = &Time();


print "$d - $t\n";

#Set Local Date
sub Date()
{
	(my $ss, my $mm, my $hh, my $d, my $mon, my $yr) = localtime();
	my $date = sprintf("%04d/%02d/%02d", $yr+1900, $mon+1, $d);
	return($date);
}

#Set Local Time
sub Time()
{
	my ($ampm);
	(my $ss, my $mm, my $hh, my $d, my $mon, my $yr) = localtime();
	if ( $hh > 12 ) {
	   $hh = $hh - 12;
	   $ampm = "PM";
	} else {
	   $ampm = "AM";
	}

	my $time = sprintf("%02d:%02d:%02d %s", $hh, $mm, $ss, $ampm);
	
	return($time);
}