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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/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;