Lines Matching refs:filename
72 my $filename;74 while ($filename = shift) {75 rename($filename, "$filename.orig") 76 || die "Cannot rename $filename to $filename.orig";77 open(IN, "<$filename.orig") 78 || die "Cannot read $filename.orig";79 open(OUT, ">$filename")80 || die "Cannot write to $filename";