Select Code to Download

  my $file = $0 ;
  
...
  }
  close FH;

  my $file = $0 ;
  
...
    print "$tel>> $line" ;
  }
  close FH;