Problem, listing funktioniert nicht.

[Quantumseeker]

$oWsh = $WScript->CreateObject(´Wscript.Shell´);
$intNormal=1;
$intMinimize=2;
$intMaximize=3;
$intWait=1;
$intNoWait=0;
$oWsh->Run("c:\\windows\\notepad.exe",$intNormal,$intNoWait);
wprint "End of Script.";
sub wprint(){$WScript->Echo (join(" ",@_))};

ich dachte wegen dem WSH passt es besser hierhin....
zur sache: Ich habe ein Script abgeschrieben aber es geht nicht. Warum ? ehrlich gesagt bin ich in perl noch nicht so der blicker.
danke für eure hilfe