Answered by : vternal3

use strict;
use warnings;
sub main { my $directory = "fruit"; unless(mkdir($directory, 0755)) { die "Unable to create $directory\n"; }
}
main();

Source : https://caveofprogramming.com/perl-tutorial/perl-mkdir-how-to-create-directories-in-perl.html | Last Update : Tue, 19 Oct 21