my $courier = GD::Font->load('./H:\RRD-1.1\Perl\courierR12.fnt') or die "Can't load font $!";