Select Code to Download

# <SNIP> - handle some pre-processing

...
my ($needed) = $file =~ /\A<!\-\-(.*?)\-\->/s;

# now output the document, using the $needed info.

BEGIN {
   use vars qw($NEEDED);
...
}

# now output the document, using the $NEEDED{$FILE} info.