Add custom command support with new CustomCommands module

lib/CustomCommands.pm

@@ -0,0 +1,22 @@
+package CustomCommands;
+
+our %COMMANDS = (
+    # Example command:
+    # 'hello' => sub { print "Hello, World!\n"; return 1; }
+    'quit' => sub { exit; return 1; }
+);
+
+sub handle {
+    my ($command) = @_;
+    
+    # Check if this is a custom command
+    foreach my $cmd (keys %COMMANDS) {
+        if ($command =~ /^$cmd\b/) {
+            return $COMMANDS{$cmd}->($command);
+        }
+    }
+    
+    return 0; # Not a custom command
+}
+
+1;

pshell.pl

@@ -6,6 +6,7 @@ use Environment::SQLite;
 use Term::ReadLine;
 use Cwd;
 use File::HomeDir;
+use CustomCommands;
 $ENV{TERM} = 'xterm-256color' unless exists $ENV{TERM};
 
 
@@ -59,6 +60,11 @@ while (1) {
     # Skip empty commands
     next unless length $command;
     
+    # Try custom commands first
+    if (CustomCommands::handle($command)) {
+        next;
+    }
+    
     # Handle cd command specially
     if ($command =~ /^cd\s*(.*)/) {
         my $dir = $1 || $ENV{HOME};