#!/usr/bin/perl -wT
use CGI;
use HTTP::Date;
use Time::HiRes;

my $cgi = new CGI;
my $delay = $cgi->param('delay');
$delay = 1000 unless $delay;
my $now = time2str(time);

# Last-modified is needed so that memory cache decides to perform revalidation.
print "Last-modified: $now\n";
print "Content-type: application/octet-stream\n\n";
Time::HiRes::sleep($delay / 1000);
open FH, "<../resources/Ahem.ttf" or die;
while (<FH>) { print; }
close FH;