open TST, ">>$var1"
    or One(), Two(), die "Could not open '$var1': $!";