Lines Matching refs:filename
89 my $filename;91 while ($filename = shift) {92 rename($filename, "$filename.orig")93 || die "Cannot rename $filename to $filename.orig: $!";94 open(IN, '<', "$filename.orig")95 || die "Cannot read $filename.orig: $!";96 open(OUT, '>', $filename)97 || die "Cannot write to $filename: $!";