#!/use/bin/perl -w ##and followed by use strict;