#!/usr/bin/perl -w print STDERR "$$\n"; sleep 1; `./my_program`;