#!/usr/bin/env perl
use strict;
use warnings;

{
open (OUTPUT,"> out.txt") or die;
}

print OUTPUT "a"; # Works OUTPUT must still be in scope

{
open (my $new_out, ">","new_out.txt") or die $!;
print $new_out "b";
}

#print $new_out "c"; #this will not work