#!/usr/bin/perl
unshift (@INC,"/data/zht/perl");
foreach(@INC) {  print; }