mkdir in Perl

[Icecrack]

Good day/night,

Im creating a script that creates a folder and moves files inside that folder,

the only problem i'm having is when creating the folder if it does not exist, i have tried different methods, mainly come up with permissions denied.

codes i have used:

use File::Copy;
use File::Path
 
$folder="test1";
$movelocd="/tmp/inboxtest/$folder";
 

mkdir ("$movelocd") || die "ALERT $movelocd ERROR: ->>>>>>- $!";
 

mkdir $movelocd || die "ALERT $movelocd ERROR: ->>>>>>- $!";
 

mkpath( $movelocd, {verbose => 1} ); 
 

Any Help ?

Kind Regards,

Charlie

[Icecrack]

i have Figured this out, i will leave the answer to this as it was not related to Perl but apache user,

I added the www "the apache user" user to a group that had access to the folder,
this allowed it to read and write to the folder,

so please not forget if you are trying to mkdir make sure you have access to it.