Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use warnings;

open(FILE,"-|") || exec "chkconfig --list |grep ON";
open(FIL,">chkconf.txt")or die ("there is problem");

my $con=0;
while (<FILE>){
if ($_=~ ":ON")
{

print FIL "Active services are :\n",$_;

}}

close FIL;
close FILE;

#!/usr/bin/perl

use strict;
use warnings;

open my $chkconfig, '-|', '/sbin/chkconfig', '--list'  or die "open: $!\n";

open my $outfile , '>', 'chkconf.txt' or die "open: $!\n";

/:on/ and print $outfile $_ while <$chkconfig>;

close $chkconfig or warn "close: $!\n";

close $outfile or warn "close: $!\n";