C:\>type fork.pl
#!/usr/bin/perl -w

defined(my $pid = fork()) || die "Can't fork!";

print $pid ? "Parent\n" : "Child\n";

C:\>perl fork.pl
Parent
Child

C:\>