Select Code to Download

#!/usr/bin/perl

...
    link_tag("$dest\\By Tag\\", $file, $name, $_) for @tags;
    link_tag("$dest\\By Tag\\", $file, $name, 'All');
}

#!/usr/bin/perl
use strict;
...
        }
    }    
}