sub MkDirs ($) {
    my ($Dir) = @_;
    my @Folders = split(/\\|\//, $Dir);
    $Dir = shift @Folders;
    foreach my $Folder (@Folders) {
      $Dir = File::Spec->catfile( $Dir, $Folder );
      mkdir $Dir unless (-e $Dir);
    }
}