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