ext/Amiga-Exec/__examples/simplecommand.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!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";