Select Code to Download

unshift @ARGV, (sub{ my $fn = shift; open my $fh, '<', $fn or return()
+; grep !/^#/, map split(), grep !/^#/, <$fh>; })->($conf);