#!/usr/bin/perl -w
use strict;
use warnings;
use Time::Format 
 'time_format';

printf "Hello world, today is %s\n",
 time_format(
  'mm dd yyyy', time
 );

exit;