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