do BLOCK [...] do SUBROUTINE(LIST) [...] do EXPR Uses the value of EXPR as a filename and executes the contents of the file as a Perl script.