Select Code to Download

$telnet = new Net::Telnet->new( Timeout=>20,Prompt => '/[\$%#>] $/');

print $output $something;