#!/usr/bin/perl
use strict;
use warnings;
use POSIX 'strftime';

my $start = strftime '%m/%d/%y %H:%M:%S', localtime;

print "$start\n";