die +(qw/ • &beer; /)[rand 2 ],$/;

Back to Perl Poetry