use File::Copy;
    my @files1 = qw [foo];
    my @files2 = qw [bar baz];
    my $dir    = "/tmp";
    copy @files1, $dir;   # No problem.
    copy @files2, $dir;   # File::Copy will warn, but erase 'baz' anyway.