#!C:\Perl\bin
use diagnostics;
use strict;

my $twoLines = 2 == grep {defined <DATA>} 1 .. 2;

print "Two or more lines\n" if $twoLines;

__DATA__
1
2