#! perl -sw
use warnings;
use strict;

my $var1 = "aBadFileName?";

open TST, ">>$var1" or One(), Two(), die "Couldn't open $var1; $!\n";
print TST "Another Line\n";
close TST;

sub One
{
  print "In Sub ONE\n";
}

sub Two
{
  print "In Sub TWO\n";
}
__DATA__
C:\test>202447
In Sub ONE
In Sub TWO
Couldn't open aBadFileName?; Invalid argument

C:\test>