  use Data::Dumper;
#  warn Dumper \%INC;
  warn "FILE---> ", File::Spec->rel2abs(__FILE__);