#!/usr/bin/perl -w

my $x = $ARGV[0] + 1;
print STDERR "$x\n";

if (!defined($child_pid = fork())) {
    die "cannot fork: $!";
} elsif ($child_pid) {
    waitpid($child_pid, 0);
} else {
    exec "$0 $x";
}