Вообщем, я тут сам посидел, подумал. Вот что в итоге получилось:

use GD;

open(PNG,"pic.PNG");
$im = newFromPng GD::Image(PNG);
open(PICTURE, ">pic.jpg");
binmode PICTURE;
print PICTURE $im->jpeg;
close PICTURE;

Работает отлично)

Kaimi, спасибо за помощь)