Help for this page
if ($have_zip) { $basename =~ /(.*).zip/i; ... local $ENV{HOME} = undef; chdir($1); }