Select Code to Download

#!perl
use strict;
...

mkdir( $dir , 0755 ) or die "Could not create $dir : $!";
print "Directory $dir created successfully\n";