1#!perl
2
3use strict;
4use warnings;
5
6use Amiga::ARexx qw(DoRexx);
7
8my ($result,$rc,$rc2) = DoRexx("WORKBENCH","HELP");
9
10print $result , "\n" , $rc, "\n", $rc2 , "\n";
11
12($result,$rc,$rc2) = DoRexx("WORKBENCH","NOHELP");
13
14print $result , "\n" , $rc, "\n", $rc2 , "\n";
15