use strict;
use IO::All;
use File::Spec;

my $source_directory = 'foo';
my $target_directory = 'bar';

sub copyfile {
  for my $file (@_) {
  my $sourcename = File::Spec->catfile( $source_directory,$file);
  my $targetname = File::Spec->catfile( $target_directory,$file);

  io($targetname)->print(io($sourcename)->slurp);
};

copyfile('README');