转化一个目录中windows文件为unix文件

#!/usr/bin/perl -w
opendir TheDir, ".";
@filename = readdir(TheDir);
#print join("/n", @filename);
foreach $fname (@filename)
{
    if ($fname =~ /^/./)
    {
        next;
    }
    my $tmpfileName = "$fname.tmp.tmp.tmp";
    open srcFILE, "<$fname" ;
    open tmpFILE, ">$tmpfileName";
   
    while()
    {
        if ($_ =~ /^(.*)/r/n$/)
        {
            print tmpFILE $1."/n";
        }
        else
        {
            print tmpFILE $_;
        }
    }
    close srcFILE;
    close tmpFILE;
   
    my @fileStatus = stat($fname);
    chmod($fileStatus[2], $tmpfileName);
    chown($fileStatus[4], $fileStatus[5], $tmpfileName);
   
    #delete srcfile
    unlink($fname);
    `mv $tmpfileName $fname`;
   
}
`rm *.tmp.tmp.tmp`;
closedir(TheDir);