Select Code to Download

{
   local @ARGV = '/home/michaelg/helpfile';
   print <>;
}

my %msgs;
dbmopen %msgs, '/home/michaelg/dbmhelp', 0600;
...
print $msgs{mainhelp};     
# [...]
print $msgs{braindead_help};

print <<'FINIS';
I gave foo bars to the foo fighters , and of course Dave 
well never mind ,
[...]
FINIS