This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: add Amiga::ARexx and Amiga::Exec
[perl5.git] / ext / Amiga-Exec / __examples / simplecommand.pl
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Amiga::ARexx qw(DoRexx);
7
8 my ($result,$rc,$rc2) = DoRexx("WORKBENCH","HELP");
9
10 print $result , "\n" , $rc, "\n", $rc2 , "\n";
11
12 ($result,$rc,$rc2) = DoRexx("WORKBENCH","NOHELP");
13
14 print $result , "\n" , $rc, "\n", $rc2 , "\n";