call_func.pl �2��jU ���jU #!/usr/bin/env perl use strict; use warnings; package CLI; use Data::Dumper; sub new { bless {}, $_[0]; } sub run { my ($self, $argv) = @_; my $command = $argv->[0]; my $func = "CMD_$command"; $self->$func([splice(@$argv, 1)]); } sub CMD_put { my ($self, $argv) = @_; print "run command put with $argv->[0]\n"; } sub CMD_get { my ($self, $argv) = @_; print "run command get\