package X;

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

sub check_data { return defined fileno(DATA) }

1;
__DATA__
1
2
3