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

my $foldername = "Test1/Test2";
my @folders = split /\//,$foldername;

for (0 .. $#folders) {
mkdir -p $folders[$_];
chdir $folders[$_];
}