#!/usr/dist/exe/expect -f

set timeout -1
set hostname blah
set login_name blah_blah
spawn $env(SHELL)
match_max 100000
send -- "telnet $hostname\r"
expect "login:"
send -- "$login_name\r"
expect "Password:"
interact -nobuffer -re "(.*)\r" return
#ask user for password and then return to script

send -- "cd $dir\r"
interact


##</code><code>##

#!/usr/bin/perl

use strict;
use Expect;
my $session = new Expect;

my $server_connect = "blah";
my $username = "blah_blah";
my $shell_prompt= '(.*%|.*#|.*>|.*\\$) $';
my $dir="blah_blah_blah";

$session->spawn("bash");

print $session "telnet $server_connect\r";
$session->expect(60, -re, "ogin:");
print $session "$username\r";
$session->expect(10, -re, "assword:");
$session->interact(\*STDIN, "\r");
$session->expect(60, -re, "$shell_prompt");
print $session "cd $dir\r";
$session->interact();

##</code><code>##

$session->interact(\*STDIN, "\r");

##</code><code>##

interact -nobuffer -re "(.*)\r" return