#!/usr/bin/perl -w
$hog
=
"
1
"
;
$i
=
0
;
while
(
$i
++ <
10000000000
){
$hog
=
$hog
.
$i
.
$hog
.
$hog
;
print
"
STARTTTTTTTTTT ==>
$i
EEEEEENNNNNDDDDDD
\n\n\n\n\n\n\n\n
"
;
}