Select Code to Download

       $text .= substr($source,$pos[2],$pos[18]-$pos[2]);

       $text .= " " . substr($source,$pos[2],$pos[18]-$pos[2]);

#!/usr/bin/perl -w

...
}

# ?

Bareword "case" not allowed while "strict subs" in use at ./Shell.pl l
+ine
9.
...
        (Do you need to predeclare case?)
syntax error at ./Shell.pl line 9, near "case 'y'"
Execution of ./Shell.pl aborted due to compilation errors.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
...
    /usr/local/lib/site_perl
    /usr/lib/perl5
    .