#!/usr/bin/perl -w
use strict;
my $cnt = 0;
while ($cnt < 9e27){
   # some code here to recognize
   # a space bar had been hit and
   # print current value of $cnt.
   $cnt++;
}