#!/usr/bin/perl -w
for
(
$a
=
0
;
$a
<=
10
;
$a
++) {
redo
if
(
$a
==
5
);
print
"In loop:
\$
a =
$a
\n
"
; }