use strict;
my $temp = shift @ARGV || 0;
print "call no. $temp\n";
if ( $temp < 10 )
{
    system ("rec.pl", $temp+1);
}