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

use File::Basename;
my $cgi=new CGI;
my $file="example_rest.pl";
print "Content-type: text/text \n\n";
print "Content-disposition: attachment;filename=FireDB_rest.pl\n\n";


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

unlink $file;
