Help for this page
@list = <*.tar>;
foreach $file (@list) { use Archive::Tar; ... $tar->extract(); }