#! /usr/bin/perl -w

use strict;

print STDOUT<<text;
foo
bar
text

##</code><code>##

foo
bar
##</code><code>##

#! /usr/bin/perl -w

use strict;

print<<text;
foo
bar
text