#!/usr/bin/perl -w

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