my ($fortune) = `fortune`;