Select Code to Download

my $method = $$rs{row}{field_name};
my $rv = $object->$method();

use List::Util qw( first ); # core since Perl 5.7.3
my $rv = first { $object->$_() } $$rs{row}{field_name};