my $tar = Archive::Tar->new;
  foreach $file (@files) {
    print $file;
    $tar->add_files(@files);
  }
  $tar->write( "foo.tar" );
 
##</code><code>##

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