Select Code to Download

#!/usr/bin/perl

...
close FILE;
return $db;
}

#!/usr/bin/perl

...
my $file=shift;
my $hash_en= DBM::Deep->new( "$file.db" );
print @{$hash_en->{'despite'}};