use File::Copy qw(copy);
use autodie qw(copy);

copy($foo, $bar);         # Void context, succeeds or dies.

my $x = copy($foo, $bar); # Scalar context, succeeds or dies.

my @x = copy($foo, $bar); # Array context, succeeds or fails silently.