perl -MCigarettes -e 'smoke and die'