Create perl_print_lines_from_a_file.pl