diff --git a/cpanfile b/cpanfile
index 2c115fd..2e7c17d 100644
--- a/cpanfile
+++ b/cpanfile
@@ -142,3 +142,4 @@ requires 'Unicode::UTF8';
 requires 'List::Gather';
 requires 'Lingua::EN::Inflexion';
 requires 'local::lib';
+requires 'Array::Utils';
diff --git a/plugins/perldoc.pm b/plugins/perldoc.pm
index 571fc1f..f1dcdd8 100644
--- a/plugins/perldoc.pm
+++ b/plugins/perldoc.pm
@@ -25,7 +25,7 @@ sub {
 		
 		$func = "-X" if ($func eq "-x"); #only case where it isn't lowercase, its easier to test at this point
 		
-		$url = "http://perldoc.perl.org/functions/".$func.".html"
+		$url = "https://perldoc.pl/functions/".$func
 	}
 	elsif ($said->{body} =~ /-m\s+(.*)\s*$/i) # got a module!
 	{#http://search.cpan.org/search?query=foo%3ABar&mode=all
@@ -47,7 +47,7 @@ sub {
 	{ #http://perldoc.perl.org/perlrun.html
 	  if ($said->{body} =~ /\s*(\S+)\s*/)
 	  {
-	  	$url = "http://perldoc.perl.org/$1.html";
+	  	$url = "https://perldoc.pl/$1";
 	  }
 	  else
 	  {
diff --git a/plugins/supereval.pm b/plugins/supereval.pm
index 60471a4..d4ecbcd 100644
--- a/plugins/supereval.pm
+++ b/plugins/supereval.pm
@@ -49,7 +49,7 @@ sub new {
 
   my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions;
 
-  $self->{aliases} = [ qw/jseval rkeval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval cpeval wscpeval swcpeval wcpeval scpeval bleval/, @perl_aliases ];
+  $self->{aliases} = [ qw/jseval rkeval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval cpeval wscpeval swcpeval wcpeval scpeval bleval coboleval cbeval/, @perl_aliases ];
     $self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
 
 	return $self;
@@ -94,6 +94,8 @@ sub command {
     'scp' => 'cperl',
     'rk' => 'perl6',
     'bl' => 'perl',
+    'cb' => 'cobol',
+    'cobol' => 'cobol',
     map {($_=>"perl$_", "w$_"=>"perl$_", "s$_" => "perl$_", "ws$_"=>"perl$_", "sw$_"=>"perl$_")} @versions
 	);