Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
   undef @$image; #needed if $image is created outside loop
   print "$pic -> $thumb\n";
}
  2. or download this
    #!/usr/bin/perl
use warnings;
...
  $image->Scale(geometry => '100x100');
   $ok = $image->Write('thumb.png') and warn ($ok);
  3. or download this
    #!/usr/bin/perl
use warnings;
...

  $ok = $montage->Write('montage.png') and warn ($ok);