#!/usr/bin/perl -w

use strict;
use warnings;

my $dir = '/etc/rc.d/init.d';
opendir(my $dirh, $dir);
my @inits = grep {-l "$dir/$_" && (readlink("$dir/$_") =~ /^tomcat$/)} readdir $dirh;
closedir $dirh;

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