#!/usr/bin/perl -w

use CGI;
use File::stat;
use Time::HiRes;

$query = new CGI;
$name = $query->param('name');
$waitFor = $query->param('waitFor');
$mimeType = $query->param('mimeType');

my $filesize = stat($name)->size;
print "Content-type: " . $mimeType . "\n"; 
print "Content-Length: " . $filesize . "\n\n";

open FILE, $name or die;
binmode FILE;
$total = 0;
my ($buf, $data, $n);
while (($n = read FILE, $data, 1024) != 0) {
    $total += $n;
    print $data;
}
close(FILE);
if (defined $waitFor) {
    Time::HiRes::sleep($waitFor)
}