[root@ploximeth]/usr/source/perl/lolpiler>
>> cat loop.lol loop.pl 
HAI
CAN HAS IO::Socket?
I HAS A VAR
IM IN YR LOOP
        UP VAR!!1
        VISIBLE VAR
        IZ VAR BIGGER THAN 10? KTHXBYE
IM OUTTA YR LOOP
KTHXBYE
#!/usr/bin/perl -w
use IO::Socket;
my $VAR;
while (1) {
$VAR += 1;
print $VAR."\n";
die("\n") if ($VAR > 10-2);
}
die("END OF FILE LOL");