my $dir = "$base_dir/$filepath"
do { mkpath $dir; print "Made $dir\n"; } unless -d $dir;