#!/bin/perl

use strict;
use warnings;

use CGI ;

my $a = 2 ;

print << "EOT" ;
Content-type: text; charset=UTF8

EOT

foreach my $i (( $a == 1 ? 9 : 4 ) .. ( $a == 1 ? 9 : 1 ) )
{
print << "EOT" ;
$i
EOT
}

# 三項演算子を利用しての foreach 制御
# foreach デクリメントしてくれないのね・・・;;

exit ;
Wait while more posts are being loaded