J'ai un probleme avec un if(){} , n'etant pas très doué en explication voila mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub get_pictures {
  foreach my $zf (@_) {
   my $r = HTTP::Request->new('GET', $zf);
   my $s = $ua->request($r);
    if ($s->is_success) {
     my $p = $s->content;
     my ($x, $y) = imgsize(\$p);
      if($x = 1..2560 and $y = 1..1024) {      
 
      print "$zf\n";
 
      }
    }
  }
}
Mon problème vient de
if($x = 1..2560 and $y = 1..1024) { ... }
qui ne marche pas , perl en renvoie pas d'erreur mais c'est faut car le print() n'est jamais effectué alors que sa if beh sa marche .

Merci de votre aide