usr bin env perl use warnings use strict sub get_form_data my args ret

#!/usr/bin/env perl
use warnings;
use strict;

sub get_form_data {
    my %args = @_;

    return {} unless ($args{to_utf8});

    return undef;
}

######

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

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

print $data->{test} if $data->{test};

exit 0;