Select Code to Download

#!/usr/bin/perl -w 
print "Content-type: text/html\r\n\r\n"; 
...
print $output; 
$t->print("exit"); 
print "</pre>"; #for nice output

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