eval do { local $/ open my $fh, '<', 'B.pl' or die $!; readline $fh; };