Mine

#include <stdio.h>
#include <unistd.h>

int main (int argc, char **argv) {
int i;
	for (i = 0; i < 100; i++) {
		printf("Result %d\r", i);
		fflush(NULL);
		sleep (1);
	}
return 0;
}


#!/usr/bin/perl -W
open (SCANTEST, "./scanim |") || die "can't fork: $!";
$i=1;
local $/ = "\r";
while (<SCANTEST>) {
	print "Line # ".$i." ".$_;
	$i++;
}
print "All done!\n";
close SCANTEST;