Select Code to Download

#!/usr/bin/perl

use warnings;
...
}

close OLD;

#!/usr/bin/perl

use warnings;
...
}

close OLD;

$host_key=~/^www.perlmonks.org$/
$host_key=~/^localhost$/
$host_key=~/\.weather\.com$/ and $name eq "UserPreferences"
...
#...
#...
#(each line is evaluated seperately)