#!/usr/bin/perl

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

print strftime("%I:%M:%S %Y/%m/%d %p", localtime());