my $tar = Archive::Tar->new;
  $tar->add_files("$f1");
  $tar->add_files("$f2");
  $tar->write("final.tar");