use strict; use warnings; use Archive::Tar; use File::Find; my @files; my $pwd = 'C:\Source Code'; find( sub { if ( $File::Find::name !~ /\.svn/i) { push @files, $File::Find::name; } }, $pwd ); Archive::Tar->create_archive( 'Test.tbz', COMPRESS_BZIP, @files ); my $tar = Archive::Tar->new; $tar->write('Test2.tbz', COMPRESS_BZIP); $tar->add_files(@files);