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