gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-1


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

$x = 1;
print "1\n";

$x = 2;
print "2\n";

$x = 3;
print "3\n";

$x = 4;
print "4\n";

$x = 5;
print "5\n";

$x = 6;
print "6\n";

$x = 7;
print "7\n";