hibiki.sh: porting from ruby to perl