make all ancest dir for a file

use strict;
use File::Path;
use File::Basename;

my $newfile="/tmp/java/dev/script/Tmp.java";

my $basename=basename($newfile);
my $dirname=substr($newfile,0, length($newfile)-length($basename));

print "filename: $newfile, dirname=$dirname,   basename=$basename\n";
mkpath($dirname);

filename: /tmp/java/dev/script/Tmp.java, dirname=/tmp/java/dev/script/,   basename=Tmp.java