do EXPR Uses the value of EXPR as a filename and executes the contents
               of the file as a Perl script.

                   do 'stat.pl';

               is just like

                   eval `cat stat.pl`;