Please use <code> tags, as described in Writeup Formatting Tips.

Your lines:

$telnet->cmd("cd c:\\Documents and Settings\\vtat\\SCRIPTS\\SCL");
$telnet->waitfor('/.*\\n/');
[download]

end up waiting for a literal "\n", since you have escaped the backslash.

That will never come - try replacing the waitfor with:

$telnet->waitfor('/\n/');
[download]

The ".*" is unnecessary.

Update: Have you considered using the free psexec, that does essentially the same thing more natively?