sub Create_Directory { my ( %Parameter ) = @_; print "PARAMETER : $Parameter{ Directory }" . "\n"; my ( @Directories_Store ) = split( /\// , $Parameter{ Directory } ); my $Directories_Store_Counter = @Directories_Store; my $Device = substr( $Parameter{ Directory } , 0 , 2 ); splice @Directories_Store, 0 , 1; my $DIR; my $Errors = 0; foreach my $Directory( @Directories_Store ) { $DIR .= '/' . $Directory; my $FH_Directory = $Device . $DIR; if( !( -e $FH_Directory ) ) { print "[ INFO ] The directory '$FH_Directory' could not be found !" . "\n"; my $FH_Diretory_Status = mkdir( $FH_Directory , 0777 ); if( $FH_Diretory_Status eq '0' ) { print "[ ERROR ] The directory '$FH_Directory' could not be created !"; return 'Failure'; } if( $FH_Diretory_Status eq '1' ) { print "[ INFO ] The directory '$FH_Directory' was created successfully !" . "\n"; } } else { print "[ INFO ] The directory '$FH_Directory' already exists !" . "\n"; } } return 'Success'; }