Select Code to Download

my ($src, $dest) = @_;

#!/usr/bin/env perl

...

    system ls => '-lR';
}

ken@titan ~/tmp/pm_11154302_move_files
$ ./move_to_phone_2.pl
...
total 0
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file1
-rw-r--r-- 1 ken None 0 Sep  8 17:50 file2

#!/usr/bin/env perl

...

    system ls => '-lR';
}

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

./Temp:
total 0