#!/usr/bin/perl -w
use strict;
use CGI;
my $query = new CGI;
my $s=$query->param('script');
$s=~s!\/|\\!!g;
print "Content-disposition: filename=$s\n";
print "Content-type: application/octetstream\n";
print "Pragma: no-cache\n";
print "Expires: 0\n\n";
open(FH,$s) or die;
while(<FH>){print;}
close(FH);