Dúvida com Mechanize

#!/usr/bin/perl

use WWW::Mechanize;
use LWP::Simple;
use LWP::UserAgent;

my $receita = "https://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx";
my $temp = "C:/imagens";
print "Digite a chave da nfe\n";
my $chave = <STDIN>; chomp $chave;
#my chave = "35120354362041000157550010000337091127006860";
&nfe($receita,$chave);


sub nfe() {
my $url = $_[0];
my $key = $_[1];
my $envia = &retorno($url,$key);
print "$envia";
if($envia =~ m/<span
class="linha">535016803110<\/span>/i) {
print "Ok...\n";
}
else {
print "Falhou...\n";
}
}

sub retorno() {
my $link = $_[0];
my $key = $_[1];
my $imagem = $temp."/imagem-".int(rand(10)).".jpg";
my $mech = WWW::Mechanize->new();
my $ret = $mech->get($link);
if($ret->content =~ m/<img src="~(.*)"\s+\/>/i) {
my $img = $1;
print "Baixando imagem... Verificar arquivo $imagem\n";
my $download = getstore($link."~".$img,$imagem);
if(is_success($download)) {
print "Download efetuado com sucesso.\n";
print "Digite as letras da imagem baixada:\n";
my $captcha = <STDIN>; chomp $captcha;
$mech->submit_form(
fields => {
'ctl00$ContentMain$tbxIdNFe' => $key,
'ctl00$ContentMain$tbxCaptcha' => $captcha,
});
$mech->submit('ctl00$ContentMain$btnConsultaCompleta');
return $mech->content;
}
else {
print "Download nao foi concluido\n";
}
}
}