Help for this page

Select Code to Download


  1. or download this
    <snipped the _TOP>

...
~~
.
  2. or download this
    my $format  = "format STDOUT = \n"
         . '@' . '<' x 125 . $sfile             . q{  }
...
         . '@' . '#' x 2 . '.##' . $sz . "\n"
         . "~~\n"
         . ".\n" ;
  3. or download this
    Use of uninitialized value in concatenation (.) or string at find_hog.
+tdy line 49.
Use of uninitialized value in concatenation (.) or string at find_hog.
+tdy line 49.
...
~~
.
Undefined format "STDOUT" called at find_hog.tdy line 227.