A Perl script to search files in the Pirate bay.