Perl/NetTelnet

use Net::Telnet;

my $telnet = new Net::Telnet(
	Timeout => 10,
	Prompt => $prompt,
);
$telnet->open($host);
$telnet->login($user, $pass);

my @result;
@result = $telnet->cmd("pwd");
$telnet->close;