#!/usr/bin/perl -wl
select STDERR;
$|=1;
print $$;
sleep 1;
print qx(./theProgram);