use CGI qw(:all);

$file2 = param('file') unless $debug;
print "$file2\n";
$file2 =~ s[\\][/]g;