format STDOUT = @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<< @<<<<<<< @<<<<<<<<<<<<< <<<<<<<<<< @||||||||||||||||||| @##.## $sfile, $user, $grp, $gcos, dateme($mod,$mod2), $sz ~~ . ##

##

my $format  = "format STDOUT = \n"
         . '@' . '<' x 125 . $sfile             . q{  }
         . '@' . '<' x 8   . $user              . q{  }
         . '@' . '<' x 8   . $grp               . q{  }
         . '@' . '<' x 25  . $gcos              . q{  }
         . '@' . '|' x 20  . dateme($mod,$mod2) . q{  }
         . '@' . '#' x 2 . '.##' . $sz . "\n"
         . "~~\n"
         . ".\n" ;

##

##

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.
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.
Use of uninitialized value in localtime at find_hog.tdy line 105.
Use of uninitialized value in concatenation (.) or string at find_hog.tdy line 49.

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<  @<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<  @||||||||||||||||||||19:00:00-12/31/69  @##.##
~~
.
Undefined format "STDOUT" called at find_hog.tdy line 227.