#!/usr/local/bin/perl # Script: calendar1.pl $CAL='/usr/bin/cal'; $DATE='/bin/date'; # Fetch the current year using the Unix date # command chop($year=`$DATE +%Y`); # Fetch the text of the calendar using the cal # command chop($calendar_text=`$CAL $year`); # Print it all out now print < Calendar for Year $year

Calendar for Year $year

$calendar_text

Welcome Page END