#!/usr/bin/perl -w

$n = $ENV{'QUERY_STRING'};
@l = split(/=/, $n);
$file = $l[1];
if ($file) {
	undef $/;
	open (F, "secure/1/$file") or die "Cannot Open File $file\n$!\n";
	binmode (F);
	$f = <F>;	
	close (F);
	print "Content-Type: application/mpg \n";
	print "Content-Disposition: filename=$file\n\n";
	print "$f";
}
else {
	print "Content-Type: text/html\n\n";
	print "Unknown file\n";
}