Se você fosse olhar o código real para Sys :: Hostname, você veria isto:
# method 6 - Apollo pre-SR10
|| eval {
local $SIG{__DIE__};
my($a,$b,$c,$d);
($host,$a,$b,$c,$d)=split(/[:\. ]/,'/com/host',6);
}
então, obviamente, é no Apollo, pré SR10.
Eu não tenho ideia do que isso significa - poderia estar na Lua pelo que eu sei;) Eles usaram o Perl para pousar na lua? Então pré-SR10 poderia ser antes de Saturno-V Rocket 10?