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

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


##</code><code>##

Is a directory at foo.pl line 4.