Help for this page

Select Code to Download

Select or download this

open FOO, '<', '/path/to/bar.data' or die $!;
my @actions = <FOO>;
close FOO or die $!;

Select or download this

for (@actions) {
    my @act = split " ";
    $action_code{$act[0]}->(@act[1..$#act]);
}