use strict;
use warnings;


my $theFile;


print "Which file among the following files do you want to check ? \n";

my $directory =  '/home/psimo/it441/challenge/logs';                           
opendir (DIR, $directory) or die $!;                                            
                                                                                
while ( my $file = readdir(DIR) ) {                                             
print " $file \n";                                                              
                                                                                
}

print "Please enter the file name: ";
my $theFile = <STDIN>;
chomp ($theFile);

open(FH, '<', '/home/psimo/it441/challenge/logs/$theFile') or die "CAN'T OPEN FILE! you don't have the log file\n";