#!/usr/local/bin/perl
 open (MYFILE, 'C:\Users\64R92\perl\cmd\site_list.txt');
 while (<MYFILE>) {
 	chomp;
 	$line = $_;
 	$directory = 
 	mkdir("$line") || die "Unable to create directory <$!>\n";
 	print "$_\n";
 }
 close (MYFILE);