perl -E 'BEGIN[unshift @INC, ".";} use forks'
              ^