[MacPerl] Do shell script AppleScript impossible from MacPerl?

[Iyanaga Nobumi]

Hello,

As the subject line says, I would like to ask you if it is impossible 
to call "do shell script" from MacPerl, using 
MacPerl::DoAppleScript($script).

I tried:

$script = <<EOS;
do shell script "cd ~/; ls"
EOS
print MacPerl::DoAppleScript($script) || die "Could not compile 
script\n";

but I got "Could not compile script"...

Thank you in advance.

Best regards,

Nobumi Iyanaga
Tokyo,
Japan