use GD;
my $image = GD::Image->newFromPng('file.png');
my $jpeg = $image->jpeg;

и $jpeg в файл