use strict;
use warnings;

my ($file,$fh) = ('bla.txt');
open( $fh, '<', $file ) && print <$fh>;