# ***** Display selected log file to the screen ***** # #=comment print ""; open( FILE, "< $directory/$file" ) or die "Can't open $directory/$file : $!"; while (my $display_file = ) { print "$display_file"; } print ""; close FILE; #=cut