use Image::Magick;

p = new Image::Magick;
p->Read("imagefile.png");
p->Write("filename.jpg");
[download]

Use Image::Magick for the conversion. Or of course, just use ImageMagick on the command line (mogrify -format jpeg foo.png).

    use Image::Magick;

    my $rc;
    my $img = Image::Magick->new();

    $rc = $img->Read('file.png');
    die "$rc\n" if $rc;

    $rc = $img->Write('file.jpeg');
    die "$rc\n" if $rc;
[download]

If you're feeling frisky you could try code up the community a tool to read JPEG files natively in perl and write them out to 24-bit bitmap format, and then code up a module to read/write PNG files from bitmaps.

But since nobody else has done that yet, I don't believe it is trivial. I've written a perl module to deconstruct bitmap files, though. Neat stuff if you get into it.

--
perl -e "print qq/just another perl hacker who doesn't grok japh\n/"
simeon2000|http://holdren.net/

I'd use GD

That might be a bad idea, though, if your image uses more than 8-bit color--if not, then GD is a great tool.




---

If God had meant us to fly, he would *never* have given us the railroads.
    --Michael Flanders