Select Code to Download

sub runit {
# first filter out the relevant telinfo:
...
while(<TEL>){
print LOG $_;
}

#!/usr/bin/perl -w
#gettel.pl - poor man's foongrep for dutch telephone numbers 
...

print $info;