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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $counter = 0;

##</code><code>##

(1) (2) Here is the second command

##</code><code>##

while (<STDIN>) {
  chomp;

  $counter++;
  print "($counter) $_\n";

  if ($_ eq "error")  {print "Error on command #$counter\n";}
  if ($_ eq "commit") {print "Committing data\n";}
  if ($_ eq "exit")   {print "Exiting program...\n"; exit;}
}