open my $fh, '<', $input or die "unable to open file: $!";

# read it line by line with while, using the $. variable to 
# show the line number (instead of your own counter).

while( <$fh> ) {
    print "$_\n";  # LINE NO: LINE
    }

print "$contilog\n";
print "$input\n";
print "Total lines was $.\n";


sub write_log{
    print LOG @_;
    print LOG "\n";
}

sub trim($)
{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}