#!/usr/bin/env perl use AceShell; use lib "."; use strict; use warnings; my %COMMANDS = ( 'help' => "Show help information.", 'history' => "Show history of typed commands.", 'quit' => "Quit the Shell.", ); my $aceshell = AceShell->new(); $aceshell->startShell();