BitTorrent - Perl extension for extracting, publishing and maintaining BitTorrent related things use BitTorrent; my $torrentfile = "http://www.mininova.org/get/620364"; my $obj = BitTorrent->new($torrentfile); my $HashRef = $obj->getHealth(); print "Seeder: " . $HashRef->{seeder}; print "Leecher: " . $HashRef->{leecher}; BitTorrent: Initial Release: get Seeder and Leecher Infos from given torrent url file.

EXPORT
getHealth(): get Seeder and Leecher Infos http://search.cpan.org/author/ORCLEV/Net-BitTorrent-File-1.02-fix/lib/Net/BitTorrent/File.pm http://search.cpan.org/author/JMCADA/Net-BitTorrent-PeerPacket-1.0/lib/Net/BitTorrent/PeerPacket.pm http://www.zoozle.net http://www.zoozle.org Marc Qantins, <qantins@gmail.com<gt> Copyright (C) 2007 by M. Quantins, Sebastian Enger This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.