The code you put here Work For Me(TM), which suggests to me that you're running into some error condition along the way (file not found, out of disk space/memory, etc). Try checking for errors along the way as you go - the Archive::Tar docs tell you how to retrieve any errors.