Select Code to Download

$remote =~ /([A-Za-z0-9\.]*[A-Za-z0-9]+\.[A-Za-z0-9]+)/;

my @GOODLIST = qw(10.0.1.5 10.0.2.1);
use CGI qw(:all); use strict;
...
      end_html;
  }
}