unless ($file_in =~ /^[\w][\w\._-]*$/) {
    print "Insecure file_in\n";
    exit;
}
##</code><code>##

if ($file_out =~ /^([\w][\w\._-]*)$/) {
	$file_out = $1;
}
else {
	print "Insecure file_out\n";
	exit;
}
##</code><code>##

/^\.{2,}$/

##</code><code>##

/\.\./