#! /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;

##</code><code>##

delli28@apsa9012:/u/delli28> test.pl test.pl
delli28@apsa9012:/u/delli28> tar tf test.tar
test.pl
tar: Unexpected end-of-file while reading from the storage media.