#!/usr/bin/perl

printf("this is with at sign   @ARGV\n");
printf("this is with at sign and element0   @ARGV[0]\n");

#if (!($ARGV)) {die("must have at least 1 input argument (the filename)")};
# need to determine length of array to error if no filename given

#$filein = sprintf("v%03d.pdm", $1);
#$filein = "porkday.pdm";

#$filein = $ARGV[0];  # ARGV[0] is argv[1]
printf($ARGV[0]);
printf("\n");

$filein = $ARGV[0];

$s = sprintf("pnmdouble2uchar %s -o deleteme_deleteme.ppm",$filein);
printf($s);
system($s);
printf("\n");

`xv deleteme_deleteme.ppm -geometry +0+0`;