#!/usr/bin/perl -w
use strict;
$|++;

my $count;

deep( $ARGV[ 0 ] );
print $count;

sub deep {
    ++$count and --$_[ 0 ] and goto \&deep;
}
__DATA__
[19:09:45.02] P:\test>422344 10000000
10000000
[19:09:53.02] P:\test> 

[19:10:03.21] P:\test>422344 100000000
100000000
[19:11:26.84] P:\test>