Perl -Sx "{0}" {"Parameters"}; Exit {Status}

#!perl
#
# AESender.t - Demonstrate how to build and send a very simple AppleEvent.
#              To use it, first start AEReceiver.t under MPW and then this
#              script.
#

use Mac::AppleEvents;

$evt = AEBuildAppleEvent("Hllo", "Wrld", typeApplSignature, "MPS ", 0, 0, "") or die $^E;
$rep = AESend($evt, kAEWaitReply) or die $^E;

print "Reply was: ", AEPrint($rep), "\n";

AEDisposeDesc $evt;
AEDisposeDesc $rep;