There is a big catch - the user that owns the CGI process must be able to write the file, i.e., that process needs write permission on the directory in question.

jeffa

my $file = "/this/file/path/does/not/exist";
my @array = qw( P e r l H a c k e r );
@array = sort @array;

# check for errors writing file
my $err_msg = to_file ( $file, @array );

# if $err_msg true add it to array
push @array, $err_msg if $err_msg;

to_browser( @array );
exit;

sub to_file {
    my $file = shift;
    open FILE, ">$file" or return "\n<p>Failed to write file '$file'<b
+r>\nReason: $!<br>\n";
    print FILE @_;
    close FILE;
  return undef;
}

sub to_browser {
    print "Content-type: text/html\n\n";
    print @_
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print