http://www.perlmonks.org?node_id=247730


in reply to Archive::Zip Period Problem

What about using getcwd() and friends from Cwd?
use strict; use Cwd; # Remember to untaint $dir my $dir = getcwd();