Select Code to Download

sub ReadTheEntireFile
{
...
  my $F = shift;
  # Remove illegal characters from file name:
  $F =~ tr`<>*?\"\|\x00-\x1F``d;

$ perl -le'
my $x = join "", map chr, 0 .. 255;
...
$VAR1 = "\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17\20\21\22\23\24\25\26\27\3
+0\31\32\e\34\35\36\37 !\"#\$%&'()*+,-./0123456789:;<=>?\@ABCDEFGHIJKL
+MNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\177\200\201\202\2
+03\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\22
+4\225\226\227\230\231\232\233\234\235\236\237\240\241\242\243\244\245
+\246\247\250\251\252\253\254\255\256\257\260\261\262\263\264\265\266\
+267\270\271\272\273\274\275\276\277\300\301\302\303\304\305\306\307\3
+10\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\33
+1\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352
+\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\
+374\375\376\377";

$VAR1 = " !#\$%&'()+,-./0123456789:;=\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^
+_`abcdefghijklmnopqrstuvwxyz{}~\177\200\201\202\203\204\205\206\207\2
+10\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\23
+1\232\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252
+\253\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273\
+274\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\3
+15\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\33
+6\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357
+\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377";