Help for this page

Select Code to Download


  1. or download this
    print FILE <<UNTIL_I_SAY_STOP or die "ERROR Writing to FILE: $!";
 blah, blah, blah
UNTIL_I_SAY_STOP
  2. or download this
    my $sub=substr(<<EOT,3,3);
abc123def
EOT
print "sub=\"$sub\"\n";
  3. or download this
    print <<EOT1,<<EOT2;
foo
EOT1
bar
EOT2