File::Copy has a nice 'move' function for moving files and folders. Below is a very naive implementation of a 'move' command for you to have a peek at. It's a very simple to use module.

#!/usr/bin/perl -w

use strict;
use File::Copy;

my ($from, $to) = (shift, shift);

unless ($from and $to) {
  die ("Usage: $0 <Source> <Destination>\n");
}

move ($from, $to);
[download]

system("mv /myfile /home/myfiledestination");