#!/usr/bin/env perl
use warnings;
use strict;
use Data::Dumper;

sub get_form_data {
    my ($self, %args) = @_;

    unless ($args{to_utf8}) {
        # If to_utf8 param required
        return undef;
    }

    return {
        test => "It works\n",
        other => {
            user => "admin",
            pass => "admin"
        }
    };
}

######

my $data = main->get_form_data(
    to_utf8 => 1,
);

unless ($data) {
    print STDERR "Can't parse data\n";
}

print Dumper $data->{other} if $data->{other};

exit 0;