#!/usr/bin/perl -w

use strict;

use File::Copy qw/cp/;

my $file = "/tmp/blubb";
my $target = "/tmp/bollux";

cp $file, $target or die "Oops: $!\n";