my $age = 15;
if ( $age >= 30 ) { [[print]] "30歳以上。" }
elsif ( $age >= 15 ) { print "15歳以上。" }
elsif ( $age >= 10 ) { print "10歳以上。" }
・
・
・
else { print "貴方は何歳?" }
my $age = 15;
unless ( $age <= 30 ) { print "30歳以上。" }
elsif ( $age <= 15 ) { print "15歳以上。" }
・
・
・
else { print "貴方は何歳?" }