Write a perl script, searchtwo.pl, that will search a given data file for a given pattern. Both the search pattern and the search file name should be obtained from the prompted inputs as the examples shown below:

$ ./searchtwo.pl

Enter a data file name: /etc/services

Enter a search pattern: pop

$ ./searchtwo.pl

Enter a data file name: /etc/services

Enter a search pattern: imap