Select Code to Download

my (%pwds, %boxes); 
tie (%pwds,  'FileHash', "$dir/pwds"); 
tie (%boxes, 'FileHash', "$dir/boxes");

package FileHash;
use strict;
...
}

1;