if($demo_mode){
print "Content-type: text/html\n\n";
print "DISABLED FOR DEMO";
}else{
$param1 =~ m!([^/:\\]*)$!;$file_name = $1;
$param1=~s!http://.+?/!$path_to_domain/!;
$param1_=$param1;
$param1_=~s|.csv$|_master.txt|;
&flock($param1);
open(P,"$param1");
while(<P>){
$CSVS.=$_;
}
close(P);

&unflock($param1);
open(PP,">>$param1_");
print PP "$CSVS";
print "Content-Type: application/x-unknown\n";
print "Content-Disposition: attachment; filename=$file_name\n\n"; 
print "$CSVS";
}#else demo
1;