#!/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();