Search Results

#!C:/perl/bin
use warnings;
use strict;

my $file1 = $ARGV[0];
my @input = "";
my @line;
my $outfile = $file1 . updated
open FILE1, "<$file1"
or die "Can't open $file1: $!\n";

open...