my $dir = 'C:\Users\64R92\perl\cmd';
mkdir("$dir\\$line") or die "Unable to create directory <$!>\n";