view release on metacpan or  search on metacpan

bin/dvdrip-subpng  view on Meta::CPAN

    system("convert $file_pgm $file_png");
    print STDERR "Write: $file_png\n";
    unlink $file_pgm;
    1;
}

sub convert_im {
    my ($file_pgm) = @_;
    my $file_png = $file_pgm;
    $file_png =~ s/pgm$/png/;
    require Image::Magick;
    my $image = Image::Magick->new;
    $image->Read($file_pgm);
    $image->Write($file_png);
    print STDERR "Write: $file_png\n";
    unlink $file_pgm;
    1;
}