use strict;
use warnings;

use HTML::TreeBuilder;
use Data::Dump qw(dd);

use HTML::TokeParser;

use LWP 5.64; # Loads all important LWP classes, and makes
              #  sure your version is reasonably recent.

my $browser = LWP::UserAgent->new;

# Then later, whenever you need to make a get request:
my $url = "https://www.imdb.com/find?s=tt&q=Butterfly+Effect&ref_=nv_sr_sm";

my $response = $browser -> get( $url );

my $content = $response -> content_ref;

my $p = HTML::TokeParser-> new( $content );

$p -> { textify } -> { img } = "alt";

my %test =  %{ $p -> { textify } };

foreach my $t( %test )
{
	#print $t;
}

#$p = {img => "alt", applet => "alt"};

while (my $token = $p->get_tag("a")) 
{
    my $url2 = $token->[1]{href} || "-";
    my $text2 = $p->get_trimmed_text("/tr");
    print "$url2\t$text2\n";
}