eval
{
	open my $pipe, "perl --version |";
	my @res = <$pipe>;
	close $pipe;
};

print "Exit Status: " . ($?>>8);