my $fh = *DATA;

if( $fh ) {
    print <$fh>;
}
else{
    print "no fh";
}