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