Select Code to Download

Select or download this

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
...
close(IN);

print @data;

Select or download this

Software error: at /var/www/cgi-bin/test.pl line 17.

Select or download this

[root@localhost cgi-bin]# perl test.pl
Content-Type: text/html; charset=iso-8859-7

...
&#65533;&#65533;&#65533;&#65533;&#65533;&#65533; &#65533;&#65533;&#655
+33;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;, &#65533;&#65533;
+&#65533;&#65533;&#65533;&#65533; &#65533;&#65533;&#65533; &#65533;&#6
+5533;&#65533; &#65533; &#65533;&#65533;.
 &#65533;&#65533; &#65533; &#65533;&#65533;&#65533;&#65533;&#65533;&#6
+5533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;
+&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#655
+33;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533; &
+#65533;&#65533;&#65533;&#65533;&#65533;&#65533; &#65533;&#65533;&#655
+33;&#65533;&#65533; &#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&
+#65533;&#65533;&#65533; &#65533;&#65533;&#65533;&#65533;&#65533;&#655
+33;&#65533; &#65533;&#65533;&#65533;&#65533;, &#65533; &#65533;&#6553
+3;&#65533; &#65533;&#65533;&#65533; &#65533; &#65533;&#65533;&#65533;
+&#65533; &#65533;&#65533; &#65533; &#65533;&#65533;&#65533;.
&#65533;&#65533;&#65533;&#65533;&#65533; &#65533;&#65533; &#65533;&#65
+533; &#65533; &#65533;&#65533;&#65533; &#65533;&#65533;&#65533;, &#65
+533;&#65533;&#65533;&#65533;&#65533;&#65533; &#65533;&#65533;&#65533;
+ &#65533;&#65533;&#65533;&#65533;&#65533; &#65533;&#65533; &#65533;&#
+65533; &#65533; &#65533; &#65533;&#65533;&#65533; &#65533; &#65533;&#
+65533;&#65533; &#65533; &#65533; &#65533;&#65533;&#65533;&#65533;&#65
+533;&#65533;&#65533; &#65533; &#65533;.