Select Code to Download

#!/usr/local/bin/perl -w

...
sub do_help {print "help\n"}
sub do_list {print "list\n"}
sub do_test {print "test\n"}