#!/usr/bin/perl
###########################################
# fixinittab
# Mike Schilli, 2004 (m@perlmeister.com)
###########################################

use Sysadm::Install qw(:all);

$file = "/etc/inittab";
$data = slurp $file;
$data =~ 
   s/id:5:initdefault:/id:3:initdefault:/;
blurt $data, $file;