perl -we'die shift =>1' 1
perl -we'die shift() =>1' 1