Select Code to Download

$ perl -MO=Deparse,-p,-q -e '$telnet = new Net::Telnet->new( Timeout=>
+20,Prompt => "/[\$%#>] $/");'
($telnet = 'Net::Telnet'->new->new('Timeout', 20, 'Prompt', ('/[$%#>] 
+' . $/)));