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.
#

# DOESN'T WORK

use Data::Dumper;
use Mac::AppleEvents::Simple ':all';

my $evt = build_event('misc', 'actv', { typeKernelProcessID() => pack_pid(6660) }) or die $^E;
my $rep = $evt->send_event(kAEWaitReply, kAENormalPriority, 600);
print Dumper $rep;

__END__
$evt = AEBuildAppleEvent("aevt", "odoc", typeKernelProcessID, 378, 0, 0, "") or die $^E;
$rep = AESend($evt, kAEWaitReply) or die $^E;

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

AEDisposeDesc $evt;
AEDisposeDesc $rep;