Странная строка

[ctax]

Здравствуйте все.
Копался в linux coreutils и нашел там скрипт "wheel-gen.pl",
который начинается так:
eval \'exec /usr/bin/perl -S $0 ${1+"$@"}\'
  if 0;

Интересен смысл употребления этой конструкции.
Может кто подскажет. Заренее гран мерси.

[NeoNox]

perldoc perlrun

[ctax]

Я имею в виду конструкцию
eval \'что угодно\' if 0;
зачем эта строка в скрипте
насколько я понимаю это
не имеет практического смысла