#!/usr/bin/perl
use File::Copy;

move('foobar','/mnt/peter/tmp/')or die $!;