foreach my $pic (@pics)
{
   my $mech = WWW::Mechanize->new();
   $mech->agent_alias( 'Windows IE 6' );
   $mech->get($pic);
   my $location = $mech->uri();

   push(@final_pics, "$location");
   print "\ntesting $pic with location $location";

}