Shell Programming and Scripting

#!/usr/bin/perl


use File::Path qw(make_path remove_tree);

my $path = "2010/sam";
make_path($path,{mode=>0777});

ls -l
total 8
drwxr-xr-x 3 root root 4096 Jul  6 02:49 2010
-rw-r--r-- 1 root root  115 Jul  6 02:49 sam.pl


ls -l 2010/
total 4
drwxr-xr-x 2 root root 4096 Jul  6 02:49 sam

  
the numeric mode to use when creating the directories (defaults to 0777), to be modified by the current umask.