use Bencode qw( bdecode );
use File::Slurp qw(read_file);
my $b = read_file('test.torrent', { binmode => ':raw' });
my $o = bdecode($b);
print unpack('H*',$o->{info}{name});