#!/usr/bin/perl
use strict;
open (PIPE,"|non-existant_file") or die "Can't open pipe: $!";
print "hello";
sleep 5;
print "goodbye";