$relative_addy = "\\\\gailbapps\\cybraryn\\TDmenu\\A-Cyb_Stats\\";

$month_year = $date_month . "_" . $date_year . ".txt";

$tot_file = $relative_addy . $month_year;

open (TOT_TXT, '>$tot_file') || die "$tot_file open failed: $!";

print "File: $tot_file<p>";

print TOT_TXT "Hello\n";

close(TOT_TXT);