Select Code to Download

This being my $database file data:
ENTRY_A|ENTRY_B|ENTRY_C

open (ORGDB,"<$database");
@ODB=<ORGDB>;
...
$ENTRY_C <BR>

\n";