sub compile($$) { my ($source_filename, $output_filename) = @_; ... # compile source into output }