open(FilesToPut, "test.txt") or die "can't open test.txt: $!";
 my $tar = Archive::Tar->new();
  while (<FilesToPut>)
 { chomp;
   $tar->add_files($_); }
$tar->write('test.tar');
}