#!/bin/perl

print "hello\n";
defined fork() or die "$0: $!";
print "goodbye\n";

exit 0;
