#!perl -w

my $jocasta = '/dev/jocasta'; # laius marries jocasta

# i reckon tis his kingdom the there roads are in, so let's let him build them, to the point where he and oedipus meet
open FH,">/home/laius/crossroad";
print FH "$$\n";
close FH;

symlink("/home/laius/crossroad","/dev/path1");
symlink("/home/laius/crossroad","/dev/path2");
symlink("/home/laius/crossroad","/dev/path2");

# he open a named pipe to his wife
if  (
	system('mknod',  $jocasta, 'p')
			&&
	system('mkfifo', $jocasta) ){
	die "mk{nod,fifo} $path failed (maybe i have body odor?)";
}

no strict; # the device was yet to be invented

# i think this is obvious
open STDOUT,">$jacosta";
my $stamina = times();
while(times()-$stamina < 40){ # starting to age, are we?
	close STDOUT;
	open STDOUT,">$jacosta";
}

my $fertility = (20_000_000 + rand (110_000_000)) * 2 *(1+rand()); # approximate sperm count

# many different sperm cells!
for (my $i = 1; $i < $fertility; $i++){
	print "sperm variation ".(1_000_000_000 * rand() * rand() * rand() * rand())."\n";
}

close STDOUT; # we're done

NOP: {
	sleep 10; # not a successful spouse
	redo NOP;
}

$SIG{__WARN__} = sub { oracle() };