#!/usr/bin/perl use strict; use warnings; use feature qw(say); use Authen::Captcha; use CGI; # # # # # say qq~