#!perl.exe

use strict;
use warnings;

my $var1 = "test.txt";

open TST, ">>$var1" or scram($var1, $!);
print TST "Another Line\n";
close TST;

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

sub Two
{
    print "In Sub TWO\n";
}

sub scram{
   my ($filename, $exitmsg ) = @_;
   One();
   Two();
   die "Error opening $filename: $exitmsg\n";
}