#!/usr/bin/perl

if ($pid = fork) {
print "Eat your cake\n";
}

else {
print "Have your cake\n";
}