use Expect;

chdir '/home/...some place.....' or die "Can't change directory : $!";

my $expect = Expect->new;
my $command = './simulator/pruthvi.out';
my @parameters = qw(-m 4);
my $timeout = 2;
#$expect->raw_pty(0);
$expect->spawn($command,@parameters ) or die "Cannot spawn : $!\n";
$expect->expect($timeout,"Selecting sproc1 CPU");
$expect->send("\n\n");
$expect->expect($timeout,"sproc1>");
$expect->send("loadprg a.out\n");
$expect->expect("sproc1>");
$expect->send("run\n");
$expect->expect($timeout,"SWBKPT hit for SLOT");
$expect->send("\n\n");
$expect->expect("sproc1>");
$expect->send("dump mem 74010 4 \n");
$expect->expect("sproc1>");
$expect->send("\n");