#!/usr/local/bin/perl -w foreach (@INC){ print "$_\n"; }