#!/usr/bin/env perl

use strict;
use warnings;

use File::Copy 'move';

my ($s, $d) = reverse qw{Temp Phone};

mv_tmp_to_phone($s, $d);

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';
}