Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
# sum() server

...
    
  return $arg1 + $arg2;
}
  2. or download this
    #!/usr/bin/perl 
# Testing sum()

...
                    );

print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n";
  3. or download this
    $perl Client.pl
2 + 5 = 7
  4. or download this
    $g = "FSF SUCKS"; $g =~ s/F/C/g; print $g;