Using "state" simplifies cases like the following where one shouldn't have to remember to print an HTML header, but also doesn't want it more than once:

#!/usr/bin/perl

use strict;
use warnings;
use feature qw{ state };

sub html {
    my ($text) = @_;

    # Make the header idempotent
    state $b_header++ or print "Content-type: text/html\n\n";

    print $text;
}

html("<br>This is some html, prior to which a header is printed\n");
html("<br>This is too (but the header was printed already)\n");
[download]

Output:

Content-type: text/html

<br>This is some html, prior to which a header is printed
<br>This is too (but the header was printed already)
[download]