I didn't understand few segments of that code.. (Especially that BEGIN..

Those two blocks are inserted by the compiler in response to the  -w and  -l command line switches, respectively. (See perlrun for info on all switches.) Try deparsing the command line invocation with and without the switches and see the effect!