Kan någon kropp förklarar under bestämda kodrader Jag har svårt att förstå det,


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

& initLanguage ($ språk);
& launchCbox ();
sub launchCbox (

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

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

if ($ mode ne "omstart") ($ scr-> i ($ y_pos, 3) -> lägger ($ x. ".. $ txth-> gettext (" 5016 "));)
else ($ y_pos \u003d $ dog_y_pos 3, $ scr-> i ($ dog_y_pos +3,3) -> lägger ($ cbox_x... $ txth-> gettext ( "5016". "x ($ status_bar_pos - (längd ($ 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 ";)
$ error? & printNOK: &printOK;

)

Hjärtliga hälsningar,
Raheel.