Select Code to Download

 open (BEGIN_FILE, "$beg_file") || die  "Cannot open: $!\n"; 
   while ($line = <BEGIN_FILE>) {
...
     ($as,$as_name,$nbr,$rtr,$int,$address,$int_name,$ifindex,$vpi,$vc
+i) = split(' ',$priv_line);
     $begin{$int_name} = $rtr;
   }

foreach $file(@end) {
     open FILE, "$file" || die "Cannot open: $!\n";
...
     $end{$int_name} = $rtr;    
     }
   }

 my  %good_files = ();
   
...
       
     }
   }