Select Code to Download

alarm_pg.pm:
package pg_alarm;
...
    $self->{CHILD_PID} = fork();
    if ($self->{CHILD_PID} == 0) {
        sleep($seconds);

    }
    bless $self;
...
    return $result;
}