#!/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;