Help for this page

Select Code to Download


  1. or download this
    sub rexec {
    my($host) = shift;
...
                      PeerPort => 'exec(512)',
                      Proto => 'tcp');
    die "Error opening sock $!" if (!defined($sock));
  2. or download this
    #!/usr/bin/env perl
use warnings;
...
    my $host = shift;
    print "host=$host\n";
}
  3. or download this
    host=111.22.33.44
host=o!,
  4. or download this
    This is perl, v5.8.5 built for x86_64-linux-thread-multi