use Archive::Tar;

  print join "\n", Archive::Tar->list_archive("test.tar")," ";
  
  $tar = Archive::Tar->new("test.tar");
 print join "\n", $tar->read("test.tar",1), " ";
@filename = <1r3*>;
 $tar->extract(@filename);