readdir() returns the file NAME, not the relative path to the file. You need to prepend $dirname/ to the file when you create the Archive::Tar object.

japhy -- Perl and Regex Hacker