my $tar = Archive::Tar->new('test.tar') or die $!;