#!/usr/bin/perl
use warnings;
use strict;

open my $d2, '<', $0 or die $!;
seek $d2, tell *DATA, 0;

if (fork) {
    while (<DATA>) {
        print "parent: $_";
    }
} else {
    while (<$d2>) {
        print "child: $_";
    }
    exit
}

__DATA__
a
b
c