$ cat forkit.pl
#!/usr/bin/env perl
use strict;
use warnings;

my $pid = fork();
if ($pid) {
    print "Parent is exiting now!\n";
}
else {
    print "Child is waiting a bit\n";
    sleep 15;
    print "Child is done!\n";
}

$ perl forkit.pl
Parent is exiting now!
Child is waiting a bit
$ date
Fri Aug 14 10:22:06 EDT 2015
$ date
Fri Aug 14 10:22:15 EDT 2015
$ Child is done!