#!perl
use strict;
use warnings;
use Amiga::ARexx qw(DoRexx);
my ($result,$rc,$rc2) = DoRexx("WORKBENCH","HELP");
print $result , "\n" , $rc, "\n", $rc2 , "\n";
($result,$rc,$rc2) = DoRexx("WORKBENCH","NOHELP");
print $result , "\n" , $rc, "\n", $rc2 , "\n";