It is failing at line 5
#!/user/bin/perl
$path1 = "export.txt";
$path2 = "export3.txt";
sysopen(openFile, $path1, O_RDONLY) || die $!;
sysopen(writeFile, $path2, O_WRONLY | O_CREAT ) || die $!;
while(<openFile>)
{
print writeFile $1, $2 ,"n\n" if m/(\w+\s)(\w+\s)/;
}_________________________________________________________________
MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*. http://join.msn.com/?page=features/virus
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
