Tty.pl

#!/usr/bin/perl

# nenaudojant init 5 (linux), bet naudojant x'us startuojam skripta is pvz.: ~/.bash_profile
# galima pvz.: panaudoti paredagavus /etc/inittab -> 1:2345:respawn:/sbin/mingetty --autologin vartotojas tty1
# (c-left) algirdas@perl.lt

use strict;
use POSIX;

if (POSIX::ttyname(1) =~ /tty1/) {
   print "\nStarting X.org\n\n";
   exec(startx);
   }