Lines Matching refs:out
89 perl I<__END__> token are split out into separate files. Some
302 my $out;
316 print $out "# end of $last_package\::$subname\n1;\n"
337 if (!$Is83 and open($out, ">$lpath")){
341 open($out, ">$spath") or die "Can't create $spath: $!\n";
348 print $out <<EOT;
356 print $out @cache;
363 print $out $_;
367 print $out @cache;
370 print $out "\n";
376 print $out @cache,"1;\n# end of $last_package\::$subname\n";
377 close($out);