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

$|++;


for my $i (0 .. 500)
{
    print "$i\n";
    test();

}


sub test
{
    my $path = 'largeimage.png';
    my $im = PDL::IO::GD->new( {filename => $path} );
    undef $im;

}

##</code><code>##

0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
PDL::IO::GD::new(): Can't read in the input file!
gd-png error: cannot allocate image data