#!/usr/bin/perl
use strict;
use warnings;

my $filename = "/var/nex/board";

open(my $fh, "<", $filename) or die "Can't open '$filename': $!";

while (my $line = <$fh>) {
    print $line;
}

close($fh);