open (IN,"<g.csv");
while (<IN>){
    chomp;
    $text=$_;
    # remove leading whitespace
    $text =~ s/^\s+//;
# remove trailing whitespace
    $text =~ s/\s+$//;
    @parts=split /\s+/, $text;
    print "$parts[0] : $parts[1] : $parts[2]  \n";
    $gzFile="bin_". $parts[2].".gz";
    print "gz $gzFile \n";
    unless (-e $gzFile) {
	unless (-e $parts[2]) {
	    print "$parts[2] does not exist \n";
	    $imcopy=$text;
	    print "doing $imcopy \n";
	   # $outi=`$imcopy`;
	}
	$fCmd="fimgbin $parts[2] $gzFile 3";
	print "doing  $fCmd \n";
	#$out=`$fCmd`;
	print $out;
	if (-e $gzFile) {
	    print "doing unlink \n";
	    unlink $parts[2];
	}
    }
    if (-e $gzFile) {
	print "doing fcarith \n";
        $fcarith= "fcarith  $gzFile 9 \\!$gzFile DIV";
        print "$fcarith \n"; 
        $fout=`$fcarith `;
        print "$fout \n";
}
}
