Normally, the default is accessed by getservbyname, but Windows doesn't have SSH in the "database" accessed by getservbyname. There are three solutions:

• Specify the port explicitely, as suggested in the parent post.

• Upgrade to version Net::SSH::Perl version 1.27 or higher. Instead of relying entirely on getservbyname, version 1.27 and higher use 22 (hardcoded) as the port number if getservbyname fails.

  Older version (<= 1.26):

          my @serv = getservbyname(my $serv = $rport, 'tcp');
          $rport = $serv[2];
          croak "Can't map service name '$serv' to port number"
              unless defined $rport;
  [download]

  Newer version (>= 1.27):

          my @serv = getservbyname(my $serv = $rport, 'tcp');
          $rport = $serv[2] || 22;
  [download]

• Add SSH to the services "database". In windows, it's %SystemRoot%\system32\drivers\etc\services, a text file identical to unix's /etc/services. The entry to add is simply:

  ssh 22/tcp  # Secure Shell Login
  [download]

That error means the OS doesn't support it that flag for fnctl, and that Perl doesn't emulate it. I don't know if that helps, but newer version of Net::SSH::Perl don't use F_SETFL.

Older version (<= 1.26):

    fcntl($sock, F_SETFL, O_NONBLOCK)
        or die "Can't set socket non-blocking: $!";
[download]

Newer version (>= 1.27):

    defined($sock->blocking(0))
        or die "Can't set socket non-blocking: $!";
[download]

Check if you have the module Fcntl. I think it is installed with Perl by default. Btw, are you using Active State or Cygwin's Perl?

Igor 'izut' Sutton
your code, your rules.

Yes, Fcntl is installed by default.
As a matter of fact if i write into the prompt: perl -e "use Fcntl;" it doesn't give me errors....
I use Active State distribution...
Any suggestions?
Thank you all!

fcntl is not very portable. That's why you get on an OS that support a particular fcntl flag and an fcntl that doesn't emulate it.

("Vendor" refers to the OS.)