$VAR1 = {
          'r' => 0,
          'W' => 1,
          'P' => 1,
          'm' => 0,
          'l' => 0,
          'D' => 1,
          'C' => 1,
          'i' => 2
        };

    	'#!/usr/bin/perl\n'
    	'\n'

      	'print'
      	' '
      	'"Hello world!\n"'
      	';'
    	'\n'