use strict; use warnings; use FindBin; use lib "$FindBin::Bin/lib"; use OPCODE2Function; my $input = shift or die 'use input cur_op'; chomp $input; print OPCODE2Function->codes($input)."\n";