#! perl -w scipt