<div>Вот такая дива <div class="uuui-stbutton" style="float: left;"></div></div><div>Пните для разгона</div><div>use strict; <br />use warnings; <br />#use WWW::Mechanize::Firefox::Troubleshooting; <br />use WWW::Mechanize::Firefox; <br />use Crypt::SSLeay; <br />use HTML::TagParser; <br />use URI::Fetch; <br /> <br />my $url = 'https://site.lobococ/teleport'; <br />my $mech = WWW::Mechanize::Firefox->new( tab => 'current', ); <br />&tevtyav; <br /> <br />sub tevtyav { <br />    $mech->get($url); <br />    sleep 4; <br />    my @buttons = grep { $mech->is_visible($_) } <br />                       $mech->xpath(q{//div[@class="uuui-stbutton"]//a}); <br />    $mech->click($buttons[1]); <br />} <br /> </div><div>Вот такое сообщение при выполнении скрипта<br />->click called with undef link at hello.pl line 20. <br />        (in cleanup) Can't call method "cmd" on an undefined value at C:/Strawbe <br />rry/perl/site/lib/MozRepl/Client.pm line 186 during global destruction. <br /><br /></div><div>стока 186 Client.pm</div><div>my $message = [map { chomp; $_ } $self->telnet->cmd(String => $command)];</div><div> </div><div>-- <br /><br /></div><div>С уважением,</div><div>Кузьменко Константин Викторович</div><div> </div>