while ($_ = $ARGV[0], /^-/) {
if(/^-d/ || /^-s/ || /^-e/) {
print $ARGV[0], "\n";
}
else {
print "Неизвестный ключ $ARGV[0]\n";
}
shift if defined $_;
}

Матюкается:
Use of uninitialized value $_ in pattern match (m//) at argv_shift.pl line 15.
Это строка в которой shift if...

У меня включена прагма strict. Нужна она мне.
Чё не понимаю?