有没有更好的方法检测我的Perl脚本是从“firstboot”调用的?

我有一个Perl脚本,如果它被firstboot脚本调用或被firstboot生成的进程调用,它需要以特定的方式运行。我有这个常规 handleFirstBoot 它看起来还可以,但可能有更好的方法来编写这个例程。所以请看一下。。。

sub handleFirstBoot {
    my $child_id = shift || $$;
    my $parent_id;
    foreach (`ps -ef`) {
        my ($uid,$pid,$ppid) = split;
        next unless ($pid eq $child_id);
        $parent_id = $ppid;
        last;
    }    
    if ( $parent_id == 0 ) {
        debug "firstboot is NOT an ancestor.\n";
        return;
    }    
    my $psout = `ps -p $parent_id | tail -1 |sed -e's/^ //g'| sed -e's/  */ /g'|cut -d' ' -f4`;
    if ( $psout =~ /firstboot/ ) {
        debug "firstboot IS an ancestor. Set post option.\n";
        $opt{'post'} = 1; 
        return;
    } else {
        # recursive case
        handleFirstBoot($parent_id);
    }    
}