File Perl

  1. Home
  2. Perl
  3. File
  4. Make a folder (directory)
#!/usr/bin/perl -w
use strict;
print "please enter a directory name: ";
chomp(my $dir = );
mkdir $dir, 0777 or die "failed to make directory $dir: $!\n";
print "made the directory $dir ok!\n";