open TST, "$var1" or die do {
        One();
        Two();
        "Couldn't open file $var1: $!.\n";
    };