Select Code to Download

$ ping -ncl perlmonks.org
ping: bad number of packets to transmit.
$ ping -ncl www.perlmonks.org
ping: bad number of packets to transmit.
$

       -n     Numeric output only.  No attempt will be made to lookup 
+symbolic
              names for host addresses.
       -c count
...
              ing for reply.  Only the super-user may select preload m
+ore than
              3.

(uiserver):u61210220:~/pmimage$ pwd >1.pitty2
(uiserver):u61210220:~/pmimage$ cat 1.pitty2
/kunden/homepages/9/d349337426/htdocs/pmimage
(uiserver):u61210220:~/pmimage$

Put file to server(y/n)?: y
server dir is perlmonks
parameter array is perlmonks Net::SFTP::Foreign=HASH(0x55825b47bcc8) C
+ouldn't create remote directory: Failure
error is Couldn't create remote directory: Failure

sub createDir {
  use 5.011;
  use Net::SFTP::Foreign;
...
  say "error is $error";
  return $error;
}

$ cat 6.fork.pl
#!/usr/bin/perl -w
use 5.011;
...
say time-$start, " ? <-ten seconds elapsed from forked process"
__END__
$

$ ./6.fork.pl
relevant processes with pstree command:
6.fork.pl,6780 -w ./6.fork.pl
...
64 bytes from sea15s11-in-x04.1e100.net (2607:f8b0:400a:808::2004): ic
+mp_seq=9 ttl=54 time=20.3 ms
64 bytes from sea15s11-in-x04.1e100.net (2607:f8b0:400a:808::2004): ic
+mp_seq=10 ttl=54 time=24.2 ms
10 seconds elapsed instead of a year

$ ./6.fork.pl
relevant processes with pstree command:
...
64 bytes from sea15s11-in-x04.1e100.net (2607:f8b0:400a:808::2004): ic
+mp_seq=151 ttl=54 time=20.5 ms
64 bytes from sea15s11-in-x04.1e100.net (2607:f8b0:400a:808::2004): ic
+mp_seq=152 ttl=54 time=377 ms
10? <-ten seconds elapsed from forked process

$ ./6.fork.pl
relevant processes with pstree command:
...
64 bytes from sea15s11-in-x04.1e100.net (2607:f8b0:400a:808::2004): ic
+mp_seq=605 ttl=54 time=44.4 ms
64 bytes from sea15s11-in-x04.1e100.net (2607:f8b0:400a:808::2004): ic
+mp_seq=608 ttl=54 time=31.3 ms
10 ? <-ten seconds elapsed from forked process

$ ping: sendmsg: Network is unreachable
ping: sendmsg: Network is unreachable
ping: sendmsg: Network is unreachable
...

$ ping -c 3 www.google.com
PING www.google.com(sea15s12-in-x04.1e100.net (2607:f8b0:400a:809::200
+4)) 56 data bytes
...
--- www.google.com ping statistics ---
3 packets transmitted, 3 received, 0% packet loss, time 2002ms
rtt min/avg/max/mdev = 17.096/19.092/21.126/1.649 ms

#!/usr/bin/perl -w
use 5.011;
use Net::Ping;
...
#system("cat 7.fork.txt");
say time - $start, " ? seconds elapsed from forked process"
__END__

relevant processes with pstree command:
7.fork.pl,27579 -w ./7.fork.pl
  |-7.fork.pl,27580 -w ./7.fork.pl
  `-pstree,27581 -Apal 27579
27580 terminated
5 ? seconds elapsed from forked process