#!/usr/bin/perl -w
use POSIX ":sys_wait_h";