#!/usr/bin/env perl

use strict;
use warnings;

use File::Copy 'move';

my ($src, $dest) = qw{Temp Phone};

mv_tmp_to_phone($src, $dest);

sub mv_tmp_to_phone {
    my ($src, $dest) = @_;

    system ls => '-lR';

    my @files = glob("$src/*");

    print "$_\n" for @files;

    move($_, $dest) for @files;

    system ls => '-lR';
}

##</code><code>##

ken@titan ~/tmp/pm_11154302_move_files
$ ./move_to_phone.pl
.:
total 1
-rwxr-xr-x 1 ken None 337 Sep  8 18:05 move_to_phone.pl
drwxr-xr-x 1 ken None   0 Sep  8 17:49 Phone
drwxr-xr-x 1 ken None   0 Sep  8 17:50 Temp

./Phone:
total 0

./Temp:
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
Temp/file1
Temp/file2
.:
total 1
-rwxr-xr-x 1 ken None 337 Sep  8 18:05 move_to_phone.pl
drwxr-xr-x 1 ken None   0 Sep  8 18:05 Phone
drwxr-xr-x 1 ken None   0 Sep  8 18:05 Temp

./Phone:
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

./Temp:
total 0