#!/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;