Select Code to Download

sub filter {
    my $file = shift;

...
        s/BASEURL=// and return qq|<li><a href="$_">$_</a></li>\n|;
    }
}

sub expand {
   map { bsd_glob($_) } @_;
}

print "<ul>\n", map { filter($_) } map { bsd_glob($_) } @ARGV, "\n";