unless(open TST, ">>$var1")
{
      One();
      Two();
      exit;  # or die "Failed to open $var1: $!";
}
# rest of code here.