#!perl.exe

use strict;
use warnings;

my $var1 = "test.txt";

open TST, ">>$var1" or die do {
				&One(); 
				&Two(); 
			};
print TST "Another Line\n";
close TST;

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

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