__OUTPUT__
REPORT OF .... on host:
sparky
Filename

PageOwner
0
<snip>
__END_OUTPUT__

    my $fn     = q<Filename> ;
    my $owr    = q<Owner> ;
    my $go     = q<GroupOwner> ;
    my $gc     = q<Gecos> ;
    my $lmd    = q<LastModifiedDate> ;
    my $smb    = q<Size Mb> ;

    my $format_TOP =
        'REPORT OF LARGE FILES on:'      . "\n"
        . qx(hostname) . '@' . '<' x 12  . "\n\n\n"
        . 'Page' . '@' . '<'  x 4        . "\n"
        . $%                             . "\n"
        . $fn       . q{ } x 10
        . $owr      . q{ } x 6
        . $go       . q{ } x 1
        . $gc       . q{ } x 25
        . $lmd      . q{ } x 6
        . $smb      . "\n"
        . '=' x 8   . q{ } x 10
        . '=' x 5   . q{ } x 6
        . '=' x 10  . q{ } x 1
        . '=' x 5   . q{ } x 25
        . '=' x 16  . q{ } x 6
        . '=' x 7   . "\n" ;

formline( $format_TOP, $fn, $owr, $go, $gc, $lmd, $smb ) ;
print $^A ;
$^A = q{};
<snip>