Perl version of my "my-stuff" encfs mount script