sub filter {
    my $file = shift;

    local *FILE;
    open FILE, $file or die "Couldn't open: $file $!\n";

    while(<FILE>) {
        s/BASEURL=// and return qq|<li><a href="$_">$_</a></li>\n|;
    }
}