#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw(strftime);

my $today = strftime "%a %m/%d/%Y %H:%M:%S", localtime;
print $today, "\n";