my $t = new Net::Telnet(
	Timeout					=> 10,
	Prompt					=> '/\[\~\] \# $/',
	Port					=> my port,
	Output_field_separator	=> "\r\n",
	Output_record_separator	=> "\r\n",
);
$t->open('my host');
$t->login('admin','my pass');
my @lines = $t->cmd('ls');
$t->close;
print @lines;