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

#!perl
#
# AEReceiver.t - Demonstrate different techniques how to wait on an 
#                AppleEvent.

use Mac::AppleEvents;

AEInstallEventHandler("aevt", "pdoc", "PrintDocument", 0, 0) or die "$^E";
$AppleEvent{"aevt", "odoc"} = "OpenDocument";
$AppleEvent{"****", "****"} = "TattleTale";

print $AppleEvent{"aevt", "odoc"}, "\n";

while (!$ok) {
	sleep(1);
}

sub OpenDocument {
	my($event) = @_;
	
	print "OpenDocument called\n", AEPrint($event), "\n";
	$ok = 1;

	0;
}

sub PrintDocument {
	my($event) = @_;
	
	print "PrintDocument called\n", AEPrint($event), "\n";
	$ok = 1;

	0;
}

sub TattleTale {
	my($event,$reply) = @_;
	
	print "Some other event sent:\n", AEPrint($event), "\n";
	AEPutParam($reply, "----", "TEXT", "Hi there");
	$ok = 1;

	0;
}