1#!/usr/bin/perl
2#
3# This code is used by lib/perl5db.t !!!
4#
5
6my $i = 5;
7eval "
8#line 5 script.pl
9\$i = 10;
10";
11
12for my $q (1 .. 10) {
13    $i += $q;
14}
15
16sub factorial
17{
18    my $i = shift;
19    return +($i < 2) ? 1 : $i*factorial($i-1);
20}
21
22my $j = 4;
23$j = factorial($j);
24$j = factorial(10);
25