Have you got an Android phone?

If so, you may be in luck as the SL4A (the Android scripting environment) supports Perl... Check out http://code.google.com/p/android-scripting

Here's some very simple sample code:

use strict;
use warnings;
use Android;
my $a = Android->new();
$a->makeToast("Hello World!");
[download]

Using this toolkit you should be able to automate many of your phone's operations and access mobile data. However, you need to be a lot more specific when posting questions as it is impossible to understand what you want to do, what platform you are using, etc.