#!/usr/bin/perl -wT

use strict;
use CGI;
use CGI::Carp   qw/fatalsToBrowser/;

open (OUT, ">/no/perm/path/junkfile") or die $!;

print OUT ("hi there\n");

close(OUT);