Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
} else {
    print $resp->status_line;
}

Select or download this

$ ./843152.pl | grep login-error

...
$ strace -eopen ./843152.pl 2>&1 | grep Crypt/SSLeay.pm
open("/usr/lib/perl5/Crypt/SSLeay.pm", O_RDONLY) = 4