Quote

$tar->extract_file( $file, [$extract_path] )

Write an entry, whose name is equivalent to the file name provided to disk. Optionally takes a second parameter, which is the full native path (including filename) the entry will be written to.

1
2
3
4

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 $!;