package Y;

while(<DATA>){ print "Y:".$_ }
#close(DATA);

sub check_data { return defined fileno(DATA) }

1;
__DATA__
10
20
30
40
50
60