open my $fh, "<", $^X or die; while (<$fh>) { }