#!/usr/bin/perl -w

use strict;
use File::Copy;

my $source = "/original/dir/some_file";
my $dest = "/other/directory/";

move($source, $dest) or die "Error moving file: $!\n";
[download]