#!/usr/bin/perl -w

my $output;
print "first\n";
open (FH, '>', \$output);
print FH "Hello world\n";
close(FH);
$output=undef;
print "second\n";
open (FH, '>', \$output);
print FH "Hello world\n";
close(FH);