sub LoadPlugins {
   my %plugins = ();
   for (<"plugins/*.pm">) {
      my ($pluginName) = /plugins/(\w+)\.pm/;
      require $_;
      # Create a new instance
      $plugins{$pluginName} = $_->new;
   }
   return %plugins;
}