#!/usr/bin/perl -w
use strict;
use Date::Manip;
my $date = UnixDate(scalar localtime,'%a, %b %d, %Y');
print "$date\n";