# process_form.pl

#!/usr/bin/perl -T
use strict;
use warnings;

if ($ENV{GATEWAY_INTERFACE}) {
    # CGI-режим
    &main();
} else {
    # Можна викликати тести або інші режими
}

sub main {
    # весь ваш попередній код тут
    # print header(), print HTML...
}

# Або краще винести обробку в функції:
sub handle_get_form {
    my $csrf_token = generate_csrf_token();
    # повертає рядок з HTML або друкує
}

sub handle_post {
    my %params = @_;
    # валідація, CSRF, SQL тощо
    # повертає статус, повідомлення, дані
}