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