#!/usr/bin/perl
use warnings;
use strict;

use Net::BitTorrent::File;
use Data::Dump qw(dump);

my $t = Net::BitTorrent::File->new( $ARGV[0] );
print dump $t;
