#!/bin/perl

$path = "/home/private/commondata/mydir";
$path =~ /(.+)/;
$path = $1;
print $path;
system "mkdir","-p","$path";