Select Code to Download

#!/usr/bin/perl
use Data::Dumper; #Use the Data::Dumper module
...
#What are you trying to do?!
if ($_[0] ne "open" && $_[0] ne "close") { die "Error! Wrong parameter
+ passed to db_file()!"; }
}

%db = ('array' => ['array_value'],'hash' => 'hash_value');