use strict;
use warnings;

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