$ perl -wle'print prototype("CORE::die")'
@