use strict;
use warnings;

use PDL;
use PDL::IO::Pic;

my ($img0) = PDL->rpic('image0.png')
  or die "Couldn't read image: $!";
my ($img1) = PDL->rpic('image1.png')
  or die "Couldn't read image: $!";

my $diff = $img1 - $img0;

$diff->wpic('diff.png')
  or die "Couldn't write image: $!";