use strict;
open my $foo, 'whatever.file' or die $!;
print $bar "Where is this going???";
close $foo;

##</code><code>##

print BAR "Where is this going???" or die $!;