#!/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);