mkpath #3

#!/usr/bin/perl -w
#
# mkpath for Safari
# Copyright (c) 1999 by Barrie Slaymaker, [email protected]
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.
#


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

for ( @ARGV ) {
   ( undef, $dir ) = fileparse( $_ ) ;
   $dir =~ s@/+$@@ ;
   mkpath( $dir, 0, 0775 ) ;
}