use strict;
use warnings;

my $dir = $ARGV[0];

print("ARG=", "$dir", "<<<<<<\n");

if (!$dir) {
        print ("No Folder Name given!\n");
        exit;
}

print( "The Folder Name is: ", "$dir", "\n" );
#fixdir($dir);
print "Done..."