<font size="1"><span style="font-family:courier new,monospace"> 1 #!/usr/bin/env perl</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> 2</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> 3 use strict;</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> 4 use warnings;</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> 5</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> 6 use feature 'say';</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> 7</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> 8 for my $i(1 .. 10) {;</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace"> 9 say $i;</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> 10 }</span></font><br><br><br>?? Why does that work?<br>
<br>