Select Code to Download

use CgiLib;
use ScmConf;
...
my $count2 = 0;
my @result;
tie(%DOC, 'AnyDBM_File', &documentdb, O_RDONLY, 0664);

my $db = shift(@ARGV);
my $file = shift (@ARGV);
...
dbmclose (%DOC);
close (SAL);
exit 0;