@lines = $t->print ("turn off dhcp server"); #for example 
($output) = $t->waitfor('/=>$/i'); #waits prompt
print $output;