use strict;
use warnings;

my $file_src = 'file.txt';

open(my $fh, '<', $file_src) or die "open() failed: $!";
my $line = <$fh>;
close($fh) or die "close() failed: $!";
printf( "Got a line: %s", $line // '<line-was-undef>' );