[Pdx-pm] method required text, how do I give it a variable?

[Thomas J Keller]

Greetings,

I want to use Mac::AppleScript to launch something on a Mac running OS X

the module has a function called RunAppleScript that apparently only 
takes text as input:
Usage: Mac::AppleScript::RunAppleScript(text) at test_mac_as line 13.

I want to hand it a variable. Here's the code that does work, followed 
by what I thought should work but doesn't

########## This works ########
use Mac::AppleScript qw(RunAppleScript);

RunAppleScript(qq(tell application "Finder"\nactivate\ndisplay dialog 
"Greetings from Perl!"\nend tell))
	or die "Didn't work.\n";

############ This doesn't work, even though $string is what I want 
interpolated  #######
use Mac::AppleScript qw(RunAppleScript);

my @apples = <<EOL =~ m/\S.*\S/g;
	qq(tell application "Finder"\\n
		activate\\n
		display dialog "Greetings from Perl!"\\n
	end tell)
EOL

my $string = join "", @apples;
print "$string\n";

RunAppleScript($string)
	or die "Didn't work.\n";

##########################

Your assistance will be greatly appreciated.
regards,
Tom K.

Tom Keller, Ph.D.
http://www.ohsu.edu/research/core
kellert at ohsu.edu
503-494-2442
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 1187 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/pdx-pm-list/attachments/20040615/5f9bf177/attachment.bin