Zaciatky s perlom

"Niekedy treba zacat," povedal som si a zacal sa ucit programovat v perl-e. Natukal som si stranku linuxsoft.cz, nasiel si kurz perl-u a zacal som.
Pozeram, pozeram ...
Konstatovanie, je to lahsie ako C ale mohli to tam napisat menej zlozito, no nestazujem sa. Zacal som teda s klasikou klasickou a to skriptikom:

#!/usr/bin/perl
print "hello world\n";

"hello world" najlepsia vec na zaciatok xD, je to lahke a okamzite vydite vysledok.
Potom ma napadlo, ze by som mohol vyskusat neco z tych veci na ktore sme robili na planete Adlerka vyvojove diagramy.
Prve co sme tam mali bol sucet dvoch premennych. To nebolo az take tazke, i ked vyskytlo sa tam par chyb, i ked nic tazke, skor chyby ako ze nebola ";" na konci riadku a pod.
"Sak je to primitivne, musim urobit neco zlozitejsie," povedal som si a neco pridal.
Potom ma napadla myslienka, ja som bol moc lenivy aby som sa branil a tak ma dostala, co keby som napisal neco co bude pricitavat k "x" vzdy "+1", takze taky mensi cyklus a bolo to. Nasledne mi M@trixX poradil nech tam dam este prikaz "sleep", vyzeralo to dobre. A co keby to islo naopak ako odpocitavanie!!! To je napad xD, nebolo to nic tazke, skor by som povedal primitivne to prehodit, no potom bol dalsi napad, co keby to nakoniec vypisalo "booom", to tiez nebolo z tych najtazsich ale potom ma napadlo co keby ti to na zaciatku dalo otazku a ked odpovies zle tak az potom to vybuchne a ak odpovies dobre tak ti to pusti Frozen-Bubbles xD.
"Ono to žijééééééééééééééé," radost bola neopisatelna ked sa to podarilo, nehovorim ze to bolo na prvy pokus ale bolo to (kolko malo staci k detskej radosti xD ).
Potom "Heuréka", našiel som dalsi napad ked som sa pokusal vypotit nejaky stav na Birdz. Co tak program co sa ta spyta ci myslis?
A co ak ti vypne pc ak klames o mysleni alebo napises neco ine ako pozadovanu odpoved.
A nakoniec vzniklo toto xD:

#!/usr/bin/perl
print "zadaj 1 ak myslis a 0 ak nemyslis, ak zadas ine cislo vypne sa ti pc, ak das iba ENTER znamena to to iste co nula\n";
$x = <STDIN>;
if ($x == 1){
print "neklam, za to ze klames ti bude vypnuty pocitac za 10s\n";
$i = 0;
$o = 11;
while ($i < 10){$o = $o - 1;
$i++;
print "$o\n";
sleep 1;
}
if ($i = 10) {system "poweroff";}
}
elsif ($x == 0){
print "vazne? vypocitaj toto 1+1+664\n";
$k = <STDIN>;
if ($k == 666) {
 print "takze myslis, klamal si a bude ti za 10s vypnuty pocitac\n";
 $i = 0;
 $o = 11;
 while ($i < 10){
  $o = $o - 1;
  $i++;
  print "$o\n";
  sleep 1;
 }
 if ($i = 10) {system "poweroff";}
	} 
else {print "fakt nemyslis, chod mysliet a pusti sa skrip znovu\n";}
 }
else { system "poweroff"}

Pri vyvoji a skusani tohto skriptu som si vypol asi 7krat pocitac z toho asi 4krat neplanove xD.
Ale kym neexperimentujem s formatovanim disku tak je to dobre nie xD?
Tymto odporucam perl vsetkym co chcu zacat programovat.
Zabavite sa. xD S podobnymi skriptikmi sa daju super veci. Napriklad pod widlami nepotrebujete ani zadat heslo na prikaz "format c:" staci zadat prikaz a potvrdit cca. dve veci, bez rootovskeho hesla. No neskus to xD.