Help for this page
{ package Fake; sub present { ... sub quit {return "Protocol mismatch."} }
bind($port, 'Ssh'); ... ...... }