open my $fh, '>', 'foo';
close $fh;
close $fh or die $!;

__END__

Bad file descriptor at