use Archive::Tar;
my $tar=Archive::Tar->new;
$tar->read('test.tar') or die $!;
$tar->extract_file("az.text","X:/tmp/zzz/k") or die $!;