This is the most innocuous I can make it:

- #!/usr/bin/perl -n -w
- sub roulette { 6 != rand 6 }
- print "bang!\n" if roulette ? (print("clik!\n"), 0) : !@{[`rm $0`]} or !$?

(On the theme of making terms look like operators.)

-- 
A. Cairns ([EMAIL PROTECTED])

Reply via email to