#!/bin/perl ($username) =@ARGV; $sourcedir = "newuserfiles"; $destinationdir = "users\\$username"; @files = `dir $sourcedir\\*.* /b /a:-d`; $filename; foreach $filename(@files) { `xcopy $sourcedir\\$filename $destinationdir\\`; } mkdir "$destinationdir\\hmm0" , 755; `xcopy $sourcedir\\hmm0\\hmmdefs $destinationdir\\hmm0\\`; mkdir "$destinationdir\\hmm1" , 755; mkdir "$destinationdir\\hmm2" , 755; mkdir "$destinationdir\\hmm3" , 755; mkdir "$destinationdir\\hmm4" , 755; mkdir "$destinationdir\\hmm5" , 755; mkdir "$destinationdir\\hmm6" , 755; mkdir "$destinationdir\\hmm7" , 755; mkdir "$destinationdir\\hmm8" , 755; mkdir "$destinationdir\\hmm9" , 755;