print $expect "StringToSend";
$expect->expect(15,"StringToWatchFor") or die "not found";