> perl -w tmp.pl
main::egal() called too early to check prototype at ..\tmp.pl line 3.