Help for this page

Select Code to Download

Select or download this

String found where operator expected at test line 13, near "STDOUT "St
+atus: 413 Request Entity Too Large\r\n""
        (Do you need to predeclare STDOUT?)
syntax error at test line 13, near "print"
BEGIN not safe after errors--compilation aborted at test line 16.

Select or download this

#!/usr/bin/perl

...
    return $todecode;
}