#!/usr/bin/perl

my $i =0;
while($i<=1000000){
  if($i == 900){
    exit 1;	
  }
  $i++;
}