{
  my $fh;
  open $fh, ">", "/tmp/inc.$$";
  printf $fh "%s\n", scalar localtime;
  printf $fh "%s\n", join "\n", @INC;
}