#!/usr/bin/perl

$fileind1 = $ARGV[0];
$fileind2 = $ARGV[1];

$s = sprintf("/mann/a/a/bigu/bin/djpeg v$fileind1.jpg > deleteme1.ppm");
printf($s); printf("\n"); system($s);

$s = sprintf("/mann/a/a/bigu/bin/djpeg v$fileind2.jpg > deleteme2.ppm");
printf($s); printf("\n"); system($s);

$s = sprintf("pnmpwadd deleteme1.ppm deleteme2.ppm -o deletemecement.ppm");
printf($s); printf("\n"); system($s);