#! c:\perl\bin\perl.exe -w

use strict;
use CGI;

my $query = CGI->new();
my @names = $query->param;
my $file_name = $query->param( $names[0] );
my $file_path = '../htdocs/safe/internship/u_texas.txt';
my $new_text = $query->param( $names[1]);

chomp(my $success = open OUT, ">$file_path");  
# test for open omitted for space concerns
print OUT $new_text;
close OUT;