footer in format

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Dear all
how to print the footer using format in perl

use strict;
use warnings;
my ( $name, $x, $uid, $gid, $power, $boot, $path );
format STDOUT=
        $name, $x, $uid, $gid, $power, $boot, $path

format STDOUT_TOP =
        Name passwd     UID      GID    POWER   BOOT    PATH
page :@<

                  End of Page @<

#$~ = "report";
open FH , "/etc/passwd" ;
while (( $name, $x, $uid, $gid, $power, $boot, $path )=split ":" ,

write ;
Quoted text here. Click to load it

Site Timeline