use Archive::Tar;

   $tar = Archive::Tar->new();
   $tar->add_files(<"/usr/include/sys/*.h">) or die("Failed $!\n");
   $tar->write("files.tar") or die("Failed $!\n");