#!perl
use strict;
use warnings;
use utf8;
use FileHandle;

my $fh = FileHandle->new(*DATA, "r");

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