#!/usr/bin/perl

`date` =~ /.{4}(...).*/ ;
$month = $1;
$month =~ tr/A-Z/a-z/ ;

$mfile = "m-" . $month . ".html";

print "Location: $mfile\n\n";