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

##</code><code>##

print $output $something;