use CGI qw(:all);

$debug = 1;

$file2 = param('file') unless $debug;
$file2 = 'c:\foo\bar.txt' if $debug;
print "$file2\n";
$file2 =~ s[\\][/]g;