#!/usr/bin/perl print "What month do you want to print: "; chop($month = ); print "What year: "; chop($year = ); @cal = (0, 0, 0, 0, 0, 0, 0, 0); @cal = `cal $month $year`; print "\n @cal[0]\n"; print "------------------------------------------------------------------------------\n"; @line = split(//, @cal[1]); for ($c = 0; $c < 20; $c = $c + 3) { $d = $c + 1; print "| "; print "@line[$c]"; print "@line[$d]"; print " "; } print "|\n"; print "------------------------------------------------------------------------------\n"; for ($i = 2; $i <= 8; $i++) { if (@cal[$i] != 0) { @line = split(//, @cal[$i]); for ($c = 0; $c < 20; $c = $c + 3) { $d = $c + 1; if (@line[$c]) { print "| "; print "@line[$c]"; print "@line[$d]"; print " "; } else { print "| "; } } print "|\n"; for ($c = 1; $c <= 7; $c++) { print "| | | | | | | |\n"; } print "------------------------------------------------------------------------------\n"; } } exit;