Select Code to Download

#!/usr/bin/env perl

...

    system ls => '-lR';
}

ken@titan ~/tmp/pm_11154302_move_files
$ ./move_to_phone.pl
...

./Temp:
total 0