open FILE, "<", "weird" or die $!;
my @data = <FILE>;

for (my $line=0; $line<1; $line++) {
	print $data[$line];
        }