torrent/torrent-dump.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Net::BitTorrent::File;
   6 use Data::Dump qw(dump);
   7
   8 my $t = Net::BitTorrent::File->new( $ARGV[0] );
   9 print dump $t;