snapshot before legacy cleanup

test_linters.sh

@@ -57,14 +57,6 @@ chk H03 php fail $'<?php\nfunction handler(array $ctx): array {\n    $name = $ct
 chk H04 php fail $'<?php\n$x = @@@;'
 chk H05 php fail $'<?php\nfunction foo( { return 1; }'
 
-echo ""
-echo "=== PERL ==="
-chk L01 perl ok  'sub handler { my ($env) = @_; return [200, [], ["ok"]]; }'
-chk L02 perl ok  'sub handler { my ($e) = @_; my $name = "World"; return [200, ["Content-Type", "text/plain"], [$name]]; }'
-chk L03 perl fail $'sub handler { my $e = @_\n return [200]; }'
-chk L04 perl fail 'sub handler { my ($e) = @_; return [200,, []]; }'
-chk L05 perl fail 'sub handler { ('
-
 echo ""
 echo "=== GO ==="
 chk G01 go ok  $'package main\nimport "net/http"\nfunc Handler(w http.ResponseWriter, r *http.Request) {}'
@@ -79,7 +71,6 @@ chk E01 nodejs fail ''
 chk E02 python  fail 'asd @@@'
 chk E03 ruby    fail 'def foo(;;; end'
 chk E04 php     fail '<?php echo @@@'
-chk E05 perl    fail '@@@'
 
 echo ""
 echo "========================"