#! perl -slw