Select Code to Download

  sub bin {
      my $num = shift;
...

      return $bin;
  }

  sub bin {
      substr unpack("B*", pack "i", $_[0]), 0, 8;
  }

  sub bin {
      sprintf "%08b", $_[0];
  }

  if(-e "$bmfile") {
      &addlink("$bmfile","$url","$desc");
  } else {
      &newbmfile("$bmfile","$url","$desc");
  }

  LINE: foreach $line (@bmfile) {
      chomp($line);
...
      } else { next LINE; }
      if($link) { $links[$#links+1] = "$desc,$link"; }
  }

  while(defined($line = <IN>)) {
      chomp($line);
...
          $ctr++;
      }
  }

  open(IN, "<$accesslog_file") 
    or die "Cannot open $accesslog_file for input: $!\n";
...
      }
  }
  close(IN);