print "Before timeout: " . localtime() . "\n";
my $timeout = 50;
$exp->expect($timeout,
	[qr/^OK$/ => sub { print "Success!\n"; }],
	[qr/^ERROR$/ => sub { print "Failure!\n"; }]) or warn "Timeout!";
print "After timeout: " . localtime() . "\n";