#! perl -slw
use strict;
$_ = 'some value';
print;
for (1 .. 10) { print; }
print;
__END__
C:\test>temp
some value
1
2
3
4
5
6
7
8
9
10
some value

C:\test>