#!/usr/bin/env perl

use v5.36;

use File::Copy 'move';

my ($source, $destination) = qw{Temp Phone};

mv_tmp_to_phone($source, $destination);

mv_tmp_to_phone(qw{For_Bod Phone});

sub mv_tmp_to_phone ($src, $dest) {
    system ls => '-lR';

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

    say for @files;

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

    system ls => '-lR';
}