#!/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;