NE
Configuring S/SM/SMUELLER/PathTools-3.47.tar.gz with Makefile.PL
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Cwd
Writing MYMETA.yml and MYMETA.json
  SMUELLER/PathTools-3.47.tar.gz
  /usr/bin/perl Makefile.PL -- OK
Running make for S/SM/SMUELLER/PathTools-3.47.tar.gz
cp lib/File/Spec/OS2.pm blib/lib/File/Spec/OS2.pm
cp lib/File/Spec/Mac.pm blib/lib/File/Spec/Mac.pm
cp lib/File/Spec/VMS.pm blib/lib/File/Spec/VMS.pm
cp lib/File/Spec/Functions.pm blib/lib/File/Spec/Functions.pm
cp lib/File/Spec/Epoc.pm blib/lib/File/Spec/Epoc.pm
cp lib/File/Spec/Cygwin.pm blib/lib/File/Spec/Cygwin.pm
cp lib/File/Spec.pm blib/lib/File/Spec.pm
cp Cwd.pm blib/lib/Cwd.pm
cp lib/File/Spec/Unix.pm blib/lib/File/Spec/Unix.pm
cp lib/File/Spec/Win32.pm blib/lib/File/Spec/Win32.pm
Running Mkbootstrap for Cwd ()
chmod 644 Cwd.bs
/usr/bin/perl.exe /usr/lib/perl5/5.14/ExtUtils/xsubpp  -typemap /usr/lib/perl5/5.14/ExtUtils/typemap  Cwd.xs > Cwd.xsc && mv Cwd.xsc Cwd.c
gcc-4 -c   -DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -g -fno-strict-aliasing -pipe -fstack-protector -DUSEIMPORTLIB -O3   -DVERSION=\"3.47\" -DXS_VERSION=\"3.47\"  "-I/usr/lib/perl5/5.14/i686-cygwin-threads-64int/CORE"  -DDOUBLE_SLASHES_SPECIAL=0 Cwd.c
/bin/sh: gcc-4: Kommando nicht gefunden.
Makefile:367: recipe for target 'Cwd.o' failed
make: *** [Cwd.o] Error 127
  SMUELLER/PathTools-3.47.tar.gz
  make -- NOT OK
Failed during this command:
 SMUELLER/PathTools-3.47.tar.gz               : make NO

cpan[2]>

##</code><code>##


c:\dev>perl script.pl
Wide character in die at C:/strawberry/perl/site/lib/Path/Tiny.pm line 1492.
Error opendir on '´&#9559;&#9488;Z:/../file.xml': Invalid argument at script.pl line 57.


##</code><code>##

sub RetrieveAndBackupXML {
#~ 	my( $directory ) = @_; ## same as shift @_ ##  same as shift
	my $directory = shift;
	my $date      = POSIX::strftime( '%Y-%m-%d', localtime ); #sets current date and time to be added to backup file
	my $bak       = "$date.bak"; #date added to the .bak file
	my @xml_files = path( $directory )->children( qr/\.xml$/ );
    for my $file ( @xml_files ) {
        Replace( $file, "$file-$bak" ); #sub Replace using it's 2 parameters as defined below
    }
}