Select Code to Download

                        #
                      ## ##!/env/perl
...
      # BEGIN{$}=$^O eq'Linux'?'clear':'cls';$^W=0}
      BEGIN{$}=$^O eq'MSWin32'?'cls':'clear';$^W=0}