callbyname.pl

#!/usr/bin/perl
use feature ':5.10';
use strict;

sub act {
    my $action = shift;
    no strict 'refs';
    &{"Actions::$action"}();
}

act('move_up');

package Actions;

sub move_up {
    say 'moving up';
}