Select Code to Download

$ cat /tmp/html-data.pl
#!/usr/bin/perl
...
Hi, I'm script html-data.pl,
located at /tmp/
running with process id 4291

my $template = load_page([<DATA>]);
sub load_page {
    my $stuff = shift;
    HTML::Template->new(arrayref => $stuff);
}

local $/ = undef;
my $template = load_page(\<DATA>);
...
    my $stuff = shift;
    HTML::Template->new(scalarref => $stuff);
}