open (FH, ....) or ...
my ($var) = <FH>; # listenkontext