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

my $path = 'Z:\path\filename.png';
my $piddle = rim($path);