...

/usr/share/doc/perl-IO-Socket-SSL/example/ssl_mitm.pl