#!/usr/bin/perl -w
use strict;

$SIG{INT} = 'IGNORE';
my $count=0;
while (){
    print $count++;
}