#!/usr/bin/perl -w

use strict;
use File::Copy;

move("fromfile","tofile")
    or die "Unable to move: $!";