# output - Couldn't make directory c:xtrafiles

use strict;

my @extrafiles = ("blah.txt","wah.txt");

my $dname = "c:\extrafiles";

&moveextrafiles($dname,@extrafiles);

exit;

sub moveextrafiles
{
    my ($dirname,@filestomove) = @_;
    
    # change \ to \\ e.g. c:\extrafiles to c:\\extrafiles
    
    mkdir $dirname,0777 or die "Couldn't make directory $dirname\n";
}
[download]