Write a Perl program that reads a number of rows from a file as string variables, in a function Read(), containing a while loop controlled by a string variable receiving the file row values, which should terminate the loop on an EOF (end of file) value. Save the strings into a list variable, and pass the string variable to a Write) function. The Write) function should write the string variable into a file, and also print each string at the command line, each time the loop does a new write into the text file