#!/data/data/com.android.perl/files/perl/perl
use strict;
use warnings;
use Android;
use Data::Dumper;
my $droid = Android->new();
#print Dumper $droid->wifiGetScanResults();
#print Dumper $droid->readPhoneState();
#print Dumper $droid->getDeviceId();
for my $f qw ( checkNetworkRoaming
getCellLocation
getDeviceId
getDeviceSoftwareVersion
getLine1Number
getNeighboringCellInfo
getNetworkOperator
getNetworkOperatorName
getNetworkType
getPhoneType
getSimCountryIso
getSimOperator
getSimOperatorName
getSimSerialNumber
getSimState
getSubscriberId
getVoiceMailAlphaTag
getVoiceMailNumber
prefGetAll
getScreenTimeout
) {
print "$f\n";
print Dumper $droid->$f;
}