Select Code to Download

foreach my $filename (@file_list) {
    chomp $filename;
    clean_file($filename);
}

    my $h = HTML::Clean->new($filename, 9);