Select Code to Download

#!/usr/bin/env perl

...
    $tar->write($zip_path, COMPRESS_GZIP);
    chdir $cur_dir or die;
}

ken@ganymede: ~/tmp/test_arch/zip
$ ls -al
...
-rw-r--r-- 1 ken staff   0 Feb  7 11:18 vbn
ken@ganymede: ~/tmp
$