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'<br>\nReason: $!<br>\n";
    print FILE @_;
    close FILE;
  return undef;
}

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