#!/usr/bin/env perl 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"; } exit 0;