#!/usr/bin/perl -w

use strict;
use warnings;
use File::Find;

my @inits;

sub wanted {
    if (-l $_ && (readlink("$_") =~ /tomcat/)) {
        push @inits,  $_ ;
    }
}

find(\&wanted, '/etc/rc.d/init.d');

print join("\n", @inits);