6 use Net::BitTorrent::File;
9 my $torretfile = shift @ARGV;
10 my $torrent = Net::BitTorrent::File->new($torretfile) or
11 die "$0: cannot load torrent file: $torretfile";
13 my $files = $torrent->files;
15 foreach my $file (@$files) {
16 if (exists $file->{'path.utf-8'}) {
17 print $torrent->name, "/", join ("/", @{ $file->{'path.utf-8'} }), "\n";
20 print $torrent->name, "/", join ("/", @{ $file->{'path'} }), "\n";
26 print $torrent->name, "\n";