my $tar = Archive::Tar->new;
  $tar->add_files( @files );
  $tar->write( "foo.tar" );