Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
    $mech->back;
}

        my $eventlistener = $mech -> progress_listener(
            $browser,
            onLocationChange => \&process_content,
        );