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