perl make a new directory and change permissions
use strict; use warnings; sub main { my $directory = "fruit"; unless(mkdir($directory, 0755)) { die "Unable to create $directory\n"; } } main();
Source: caveofprogramming.com
use strict; use warnings; sub main { my $directory = "fruit"; unless(mkdir($directory, 0755)) { die "Unable to create $directory\n"; } } main();