#!/usr/bin/perl
my $file=shift || "/etc/inittab";
(@ARGV,$/)=($file);
$_=<>; s/remount,ro,noatime/remount,rw,noatime/g;
open(STDOUT, '>', $file); print;