#!/vars/bin/perl -Tw