my $percentage = sprintf("%.1f",$lineCounter/$linesInFile*100);
print "\b\b\b\b\b\b\b\b\b\b".$percentage."%";