#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $dir="/etc";
opendir ( DIR, $dir ) || die "Error in opening dir $dir\n";
my @files=sort(grep(/^rc\.itm\d+$/, readdir(DIR)));
closedir(DIR);
foreach my $file(@files){
        my $this_file=$dir . "/" . $file;
        print "$this_file\n";
        open IN, "< $this_file";
        while (<IN>){
                if ($_ =~ /start ux/){
                        print "#$_";
                        }
                }
}