#!/usr/bin/perl -w
#############################
# topng -- convert jpgs->png
#############################
use Sysadm::Install qw(:all);

for $jpg (@ARGV) {
  ($png = $jpg) =~ 
                 s/jpg$/png/;
  sysrun "convert", 
         $jpg, $png;
  rmf $jpg;
}