#! /usr/bin/perl -w

# This is part of modern Perl distributions.
use FindBin;
use lib "$FindBin::Bin";

# These are part of modern Perl distributions.
use Getopt::Long;

# These modules aren't necessarily "standard" with Perl.  You might need to
# install them seperately.
use Digest::SHA1 qw(sha1);
use LWP::UserAgent;

# This is part of TorrentSniff, and should have been distributed with it.
use BitTorrent::BDecode;

use strict;
use Data::Dumper;
use LWP::Simple;

my $doc = get("http://torrent.to/torrent/upload/moviez/615/150615/555-www.torrent.to...WernerHerzog-Stroszek1977%5Bfreakyflicks%5D.torrent");

my $t = BitTorrent::BDecode::bdecode(\$doc);
	print Dumper($t);
