my $field = $q->param("author");
$field =~ s/ /_/g;

open(OUTFILE,">"./$field.txt") || die($!);
print OUTFILE "blah";
close(OUTFILE);