Select Code to Download

use GD::Simple;
my $png = GD::Image->newFromPng('test.png');  my @sw;
...
   if ($b>128 || $r>128) {$p=0;} else {$p=1;}
   return $p;
 }

use GD::Simple;
my $png = GD::Image->newFromPng('test.png');  my @sw; my $pdata=''; 
...
    $y++;  
  }