open my $x, "< file" or die;