#!/usr/bin/perl

$margin = -5;
$dstart = $margin + `date -d 1998-10-01 +%j`;
$dend = 365 + `date -d 1999-2-10 +%j`;
print "set xrange [$dstart:$dend]\n";
print "set yrange [72:84]\n";

$dstart -= $margin;
print "set xtics (\"98Oct\" $dstart";
@GridDate = (
	"1998-11-01",
	"1998-12-01",
	"1999-01-01",
	"1999-02-01"
);
foreach $d (@GridDate) {
	@Sd = split(/-/, $d);
	$Days = ($Sd[0] - 1998) * 365 + `date -d $d +%j`;
	system('date -d '.$d.' +%y%b > tmp.txt');
	open TMP, "tmp.txt";
	$Month = <TMP>;
	close TMP;
	unlink "tmp.txt";
	chomp($Month);
	print ",\"$Month\" $Days";
}
print ")\n"; # Deleting last comma.

print <<END;
set grid
set nokey
plot "ww.txt" u 1:2 w l
END