BEGIN{ ($_ = $0) =~ s[[\\/][^\\/]+$][]; } use lib $_; [download]
In reply to Re^5: @INC from $0 by Anonymous Monk in thread @INC from $0 by der