#!/usr/bin/perl

use strict;

my $pid = open my $fh, 'sleep 10  |'
    or die "Couldn't spawn: $! / $?";
    
close $fh;

print "Spawned child as $pid";
print "Doing own work $_\n" for 1..10;

print "Killing child $pid\n";
kill 9 => $pid;
print "done\n";