note
dReKurCe
Here's one possible solution :
<code>
#! /usr/bin/perl
use Time::localtime;
$day=localtime->yday();
$month=localtime->mon();
$year=localtime->year() ;
$month=+1;
$year +=1900;
$string="Spacley";
@date=("$day","$month","$year" );
write();
format STDOUT_TOP=
Spacely Sprockets Report Beta 1 @##@##@####
$day ,$month,$year
.
format STDOUT=
@<<<<< @<<<<<<<< @<<<<<<<
$string,$string,$string
.
</code>
431976
431976