Help for this page

Select Code to Download


  1. or download this
    $ perl -wE 'if (0) { label: say 1 }; goto label'
Can't find label label at -e line 1.
...
Use of "goto" to jump into a construct is deprecated at -e line 1.
1
^C # aborted, because it loops
  2. or download this
    
#!/usr/bin/perl
...
__END__
here
here
  3. or download this
    $ perl -wE 'sub g() { label: say "here" }; g; goto label'
here
Can't find label label at -e line 1.