[MacPerl] Send Arg to MacPerl from AS

[pudge@pcix.com (Chris Nandor)]

Is there a way to send MacPerl an argument from AppleScript and vice versa,
i.e.:

property test : 1
tell application "MacPerl"
        Do Script "$x = 1 + test"
end tell
return $x

Thanks,



#================================================================
perl -e 'srand();if(rand>.5){$i=0;foreach(@ARGV){@$i=split(//);$z
[$i]=0;foreach$l(@$i){$s[$i][$z[$i]]=$l;$z[$i]++;}$i++;}foreach$m
(@s){foreach$g(@{$m}){print$g}print" ";$m++}}else{print(join(" ",
@ARGV))}print"\n"' McClellan Clan Motto: Think On

Chris Nandor                                       pudge@pcix.com
PGP Key 0xB76E72AD                    http://pudge.petersons.com/