I'd suggest using the File::Copy module. The following code should show you how its used.

#!/usr/bin/perl -w

use strict;
use File::Copy;

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