http://www.perlmonks.org?node_id=68578

#!/usr/bin/perl use Quantum::Entanglement qw(:DEFAULT :complex); $language = entangle(1,'python',1/i,'C',i*i,'perl', 1/i**2,'Java',i**5,'C#'); print "Just another $language hacker,\n" if $language eq 'perl';