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