if ($have_zip) {
        $basename =~ /(.*).zip/i;
    }
    else {
        $tarzip->extract($tarzip->list_files);
        $basename =~ /(.*).tar/i;
    }
	{
        local $ENV{HOME} = undef;
        chdir($1);
	}