Ubuntuの不要なサービスを止める

スクリプト書いた。
どっかで拾ってきたやつを改変。

#!/usr/bin/perl

use strict;
use warnings;

# 自動起動を止めるサービス一覧
my @service = (
  'anacron'           #高機能なCron
    ,'apache2 '
    ,'apport'           #バグレポートを送るのに必要らしい
    ,'atd'              #あるプロセスの後に実行するプロセスを指定する
    ,'avahi-deamon'     #Sambaの接続時に、接続可能なホストを自動で検出する
    ,'backupppc'        #ディスクのバックアップに使うらしい
    ,'bluetooth'
    ,'brltty'           #音声読み上げに関するものらしい
    ,'cryptdisks'       #暗号化ファイルシステム関連らしい
    ,'cryptdisks-e'
    ,'dictd'            #辞書を引くのに使うらしい
    ,'dns-clean'        #pppd関連のものらしい
    ,'exim4'            #プロバイダのメールサーバを使う時にスマートホスト機能というのを使うのに必要らしい. 
    ,'festival'         #音声合成関連らしい
    ,'jetty'
    ,'kdm'              #KDE関連. gdmが動いているのでいらないと思われる.
    ,'kqemu-source'
    ,'mysql'
    ,'mysql-ndb'
    ,'mysql-ndb-mgm'
    ,'pcmciautils'
    ,'polipo'
    ,'pppd-dns'         #ppp関連らしい
    ,'saned'            #スキャナを使う時に必要
    ,'sl-modem-daemon'  #モデムを使う時に必要
    ,'usplash'
    ,'winbind'
    ,'xend'
    ,'xendomains'
    );

# コマンド
my $updatercd = '/usr/sbin/update-rc.d';
my $sysvrcconf = '/usr/sbin/sysv-rc-conf';

# サービス停止、自動起動停止
foreach (@service) {
    chomp;
    system "/etc/init.d/$_ stop";
    system "$updatercd -f $_ remove";
}

# 自動起動の確認
foreach (@service) {
    system "$sysvrcconf --list $_";
}