my $total = ( -s $FILE );
my $cummulative = 0;
while ( my $line = <FILE> ) {
   $cummulative += length( $line );
   do_processing( $line );
   printf( "%2d%% Done\n", $cummulative/$total*100.0 );
}