dump skins

#!/usr/bin/perl -w
use Data::Dumper;
use HTTP::Cookies;
use LWP::UserAgent;
use LWP::Simple;
use strict;
$| =1;
  my $browser;
  my $htmlpage;

sub startBrowser{

   $browser = LWP::UserAgent->new(
      agent=>'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/1.5.0.5',
    #  cookie_jar => $cookie_jar,
      max_redirect => 0,
      timeout =>15,
                                    );
}

sub getURL{

  my $url = $_[0];
  my $resp = $browser->get($url);
  my $content = $resp->content(); #make content store web scoure
    #print $content;
  return $content;
}





sub getInfo{
  my ($champ,
      $skinName,
      $imgURL,
      $skinPrice
        );
        $imgURL =   'cost">(\d+)';
        $skinName  = '<div class="champ-skins__item__meta">\s+.*>([\w.\s].*)<';
        $skinPrice = 'cost">(\d+)';

             $champ = ($htmlpage =~ /name="champion" value\=\"(\w+)"/g);
          my @price_skin = ($htmlpage =~ m/$skinName/g);
          my @img_skin   = ($htmlpage =~ m/$imgURL/g);
          my @Name_skin  = ($htmlpage =~ m/$skinName/g);



                  for (my $i = 0; $i < scalar(@price_skin); $i++) {

                  my $rc = getstore($img_skin[$_], "$Name_skin[$_]".'.jpg');
                  if($rc == 200)     {

                    print $Name_skin[$i].": RP $price_skin[$i] Downloaded \n";
                                  }

                  else            {
                    print "some error \n";
                                  }
                                                                  }



}



#============================================================================== start ============================================================

startBrowser();
print "Link: ";
chop (my $link = <stdin>);
$htmlpage = getURL($link);
#$htmlpage = getURL('');
getInfo();