Select Code to Download

print "$command\n";
$exp->send("$command\n");
$exp->expect(1, '-re','\(\d+\)');

$exp->send("$command\n");
print "$command\n";
$exp->expect(1, '-re','\(\d+\)');

my $counter = 1;
print "($counter) ";

my $counter = 0;

while (<STDIN>) {
  chomp;
...
  if ($_ eq "commit") {print "Committing data\n";}
  if ($_ eq "exit")   {print "Exiting program...\n"; exit;}
}