my $wordlist = 'wordlist.txt';	
my $highschool = 'bathroom.txt';			

open (LIST, $wordlist) || die "\n Cannot find wordlist.txt \n"; 
open (lol, $highschool) || die "\n Cannot find bathroom.txt \n";			
print "\n professional site \n"; 

# After opening the two .txt files I'm checking if they are 
equal because bathroom.txt is a blank file

if ($highschool =~ $LIST) {        	
die "\n No data in wordlist.txt \n";
} 
else {
print "\n All clear \n"};