Hi there
After the my Android talk a few weeks back actually I haven't done
much with Android but I saw Android Scripting Environment (ASE) the
other day and though you might be interested:
use Android;
my $a = Android->new();
$a->makeToast("Hello Android!");
http://code.google.com/p/android-scripting/
Cheers
--Ziya