>>771
たぶん、比較演算子の描き方がおかしいんだと思うのです（照）

# 元画像を読み込む
my $sourceImage = ((localtime $Now_date)[2] < 23 and (localtime $Now_date)[2] > 4 and $Adult) ←ここ
? newFromPng GD::Image($Temp_live) # 健全
: newFromPng GD::Image($Temp_liveN); # いやあのえっと、、、（照）