perl -gne'
   use v5.36;
   use Bencode qw( bdecode );
   binmode STDOUT, ":encoding( UTF-8 )";
   binmode STDERR, ":encoding( UTF-8 )";
   say bdecode( $_ )->{info}{name};
'