#!/usr/bin/env perl
use strict;
use CGI ;

use File::Basename;
my $cgi=new CGI;
my $file=$cgi->param('file');

print "Content-type: text/plain\n";
print "Content-disposition: attachment;filename=".$file."\n\n";


open(DAT,$file) || die '->'.$file;
while(<DAT>)
{
	print $_;
}
close DAT;

unlink $file;