my $cmd = "tar -T - -cvz -";
open (TAR, "| $cmd") or die "Cannot run '$cmd': $!";
print TAR map "$_\n", @files;
close TAR;