#!/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;