telnet session to read or write a file

Hi Folks,

I am trying to connect to a server where i want to create a file or read a
existing file.
This is my code.

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/] $/');
# My prompt will be looking after telnet session like this "[
ekusure@lxlogin-2-wip ~ ]"
$username = "ekusure";
$passwd = "qwert123";
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;

I am getting an error
timed-out waiting for a command prompt at ./telnetserver line 8

Can someone show lights on this?