#!/usr/local/bin/perl -wT
use strict;
use CGI 'param';

my $outfile = param('outfile');

open(OUT,">>$outfile") || die;
print OUT "blah blah blah";
close(OUT);