my $x = `cal`;  #in *nix OSs this generates a 
    # formatted calendar for the month
print "$x\n"; #print that calendar