#!/usr/bin/perl
###########################################
# fixinittab-pie
# Mike Schilli, 2004 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use Sysadm::Install qw(:all);

pie(sub { 
  s/id:5:initdefault
   /id:3:initdefault/gx; $_;
  }, "/etc/inittab");