#!/usr/local/bin/perl
sub mak
{
!system "/bin/mkdir", @_;
}
print "Enter name of Directory you want to create: ";
chomp($newb = <STDIN>);
mak $newb;
print "$newb directory created.\n";