#open the directory you want to create file in. syntax of the form
(i believe): ipaddress\C:\Users\folder_name\

opendir(DR,"\\10.64.30.27\C$\Users\hari9\");
#create the file. 
open(file,">drive1.txt);
for($i=0;$i<=10;$i++)
{print file $i;
}
closedir (DR);
close (file);