Webmaster Forum / Perl / Getting Started / July 2009

Hi ,,

          I want to test a scenario where it is required to check that the
server *should not allow telnet .Please* let me know what is the best way to
do this

my code

use Net::Telnet;

my $proxySmtpPort= 20025;

my $telnet = new Net::Telnet (Host => "localhost",
        Port => "$proxySmtpPort",
        Timeout => 10,
        Prompt => '/[$%#>] $/');

Now to Verify that the connection is no allowed and that you get the reject
message

Regards
Swayam