if(my $pid = fork){
    print "I am the parent my pid is $$ and my child has pid: $pid\n";
}
elsif(defined $pid and $pid == 0){
    print "I am the child and my pid is $$\n";
}
else{
    print "Oh no :-(\n";
}