Help for this page

Select Code to Download


  1. or download this
            # Print __DATA__ section, if necessary
            no strict 'refs';
    ...
                print "__DATA__\n";
                print readline(*{$laststash."::DATA"});
            }
    
  2. or download this
    my $laststash = "main";
    my $data=\*{$laststash."::DATA"};
    ...
    __END__
    end
    end
    
  3. or download this
    __END__
    end
    end
    
  4. or download this
    __DATA__
    # data
    ...
    __END__
    end
    end