#!/vobs/ims_tools/sol/perl/bin/perl –w