Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
}

print $actions->{$action} ? $actions->{$action}() : show();

Select or download this

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
...
   </div>
</body>
</html>