use strict;
use warnings 'all';

# Uncomment this to see what I mean
# local $/ = undef;
open(FH,'<',"test.txt") || die "oops: $!";
my @data = <FH>;
close (FH);
print $data[0];