#! /bin/perl

use Archive::Tar::Streamed;

my $fh;
open $fh, ">test.tar";
binmode $fh;

my $tar = Archive::Tar::Streamed->new($fh) or die "Could not open tar file";
$tar->add(@ARGV);

$fh->close;