my $filename = 'c_a.txt';
open my $fh, '<', $filename
    or die "Couldn't open '$filename': $!";
print for <$fh>;