Select Code to Download

use warnings;
use strict;
...
        print "not ok\n";
    }
}

Useless use of a constant (jpeg) in void context at 
Useless use of a constant (jpg) in void context at 
not ok

perl -MO=Deparse given.pl

...
        print "not ok\n";
    }
}

    when ([qw/jpeg jpg png/]) {