#! /usr/local/bin/perl -w
my $Month = $ARGV[0];
use strict;
#$Month = 3; # if I uncomment this like it also works fine
print "Content-type: text/html\n\n";
print "\n
\n file viewer\n \n";
print "\n";
print @ARGV; #this shows nothing on my Apache server
&Calendar($Month,2005,1); #Print a calendar for a month in 2005
print "\n";