Hi John,
you asked...
> Can you provide a real working example. I find the Synopsis of
> IPC::Run a little obscure.
It's expecting an arrayref in the first slot: here's a trivial,
but working, example.
-----------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use IPC::Run qw(run);
my (@osa,$ass,$asresult);
@osa=qw(osascript);
$ass=<<END;
tell app "Finder" to return the name of the startup disk
END
run([EMAIL PROTECTED], \$ass, \$asresult);
print "\nThe startup disk is called $asresult\n";
-----------------------------------------------------------------------
Cheers,
Paul
