Select Code to Download

play('intro.rmd');
&menu;
option(1,sub {
...
option(2, sub{
    play('blah.rmd');
});

#!/usr/bin/perl -w
#ansService cover under the gpl
...
    $v->play_and_wait("/var/lib/ansService/".$_[0]);
    $v->expect('READY');
}