Select Code to Download

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