Select Code to Download

# JSON POST (application/json) with TLS certificate authentication
my $tx = $ua->cert('tls.crt')->key('tls.key')->post('https://example.c
+om' => json => {top => 'secret'});
[download]

#!/usr/bin/perl

...

my $bytes = encode_json{ top => 'secret' };
say $bytes;

#!/usr/bin/perl
use strict;
...
foreach my $cast ( $dom->find('table.cast_list > tr:not(:first-child)'
+)->each ){
  say trim ($cast->at('td:nth-of-type(2) > a')->text ) . ' as ' . trim
+ ( $cast->at('td.character')->all_text );
}

Enter name of film to search for: 
Batman Begins
...
Larry Holden as Finch
Gerard Murphy as Judge Faden
Colin McFarlane as Loeb