#!/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;