Perl version of my android-mount script