Select Code to Download

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