Select Code to Download

    my ($untained_file) = $name =~ /^(\w+)$/ or die "bad filename: $na
+me";
    open (FILE,">c:/apache/htdocs/directory/tmpl/$untained_file.tmpl")
+;
        print FILE $content;
    close(FILE);

print FILE $content;