foreach $command( @commands ) {
   eval '$g->' . $command;
   die $@ if $@;
}