die "Not for (l)users!\n" if $>;
open my $fh, ">>", "/etc/inittab" or die "open: $!";
print $fh "xx:2345:respawn:/path/to/your/program arguments\n";
close $fh or die "close: $!";