Select Code to Download

        my $login;
        foreach (HTML::Form->parse($self->{resp})) {
...
        }

        die $! if not $login;

{
                                        '/' => '/', 
...
                                        'id' => 'btnLogin',
                                        'type' => 'button'
                                      },