#!/usr/bin/perl --

use strict;
use warnings;

use File::Copy;

=head1 SETUP

    echo >"test1fi le"
    echo >"test1fil e"
    echo >"test1fil   e"
    md test1ditch
    dir test1fi*

=cut


my( @files ) = ("test1fi le","test1fil e", "test1fil   e");

for my $file( @files ){
    copy("$file","test1ditch/")
    or warn sprintf
    'Copy(q(%s),q(%s)) failed: $!(%d)(%s) $^E(%d)(%s)',
    "$file","test1ditch/",  int($!),$!,int($^E),$^E;
}

__END__