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