Kan noen kroppen forklarer under gitte linjer med kode jeg har vansker med å forstå det,


my $ errorlog \u003d "/ var / log / controler.log";

& initLanguage ($ language);
& launchCbox ();
sub launchCbox (

$ scr \u003d Term:: ScreenColor-> ny;
$ scr-> clrscr ();
min ($ mode) \u003d @ _;
my $ feil \u003d 0;
my $ cbox_x \u003d $ dog_x + 3;

my $ args;
min% box_args \u003d% ($ args [3]);
$ args .\u003d "d" hvis $ box_args ( "debug");
$ args .\u003d "-l" hvis $ box_args ( "log");
$ args .\u003d "-L". $ box_args ( "språk") hvis $ box_args ( "språk");

if ($ modus ne "omstart") ($ scr-> på ($ y_pos, 3) -> setter ($ x. ".". $ txth-> gettext ( "5016"));)
else ($ y_pos \u003d $ dog_y_pos 3; $ scr-> på ($ dog_y_pos +3,3) -> setter ($ cbox_x "..". $ txth-> gettext ( "5016". "x ($ status_bar_pos - (lengde ($ txth-> gettext ( "5016")) +7 ))));)

if (! $ xwindow) ( `perl . / cbox.pl 2>> / var / log / cbox.log $ args> / dev/tty9 `;)
else ( `perl . / cbox.pl 2>> / var / log / cbox.log $ args> / dev/pts/2 `;)
$ feil? & printNOK: &printOK;

)

Kindest hilsen
Raheel.