#!/usr/bin/perl
use strict; 
use warnings;

 my $x='x'; 
 my $y='y'; 
 my $dirname = "$x/$y";

 my @folders = split /\/|\\/, $dirname;
  map {mkdir $_; chdir $_;} @folders;

# Print output to a Text File:  

my $output="$dirname/z.txt"; 
open (my $fh,">",$output) or die "Cannot open file '$output'.\n"; 

print $fh "\n It's ok.\n"; 

close $output;   
print "\n Program is over.\n";  
exit; 

##</code><code>##

 Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users>cd d*

C:\Users\Desktop>x4.pl
Cannot open file 'x/y/z.txt'.

C:\Users\Desktop>