Try this...

sub TextDate {
    
    my ($time) = $_[0];
    my @days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
    my @months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep
+','Oct','Nov','Dec');

    $time = time() if ! $time;

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localti
+me($time);
    if ($hour < 10) { $hour = "0$hour"; }
    if ($min < 10)  { $min = "0$min"; }
    if ($sec < 10)  { $sec = "0$sec"; }

    $year += 1900;
    return("$days[$wday] $mday/$months[$mon]/$year \@ $hour\:$min");

}
[download]

#!/home/bbq/bin/perl
# Trust no1!