perl -MFile::Find -MArchive::Tar -e "$t=Archive::Tar->new();
  find(sub{-f && $t->add_files($_)},$ARGV[0]); 
  $t->write(join('.',$ARGV[0].'tar')"  some_path