Select Code to Download

sub getFileSize
{
    my( $fileName )= @_;
    return -s $fileName;
}

sub getFileSize
{
...
    }
    return $size;
}

    my $fileName= getFileName();
    my @size;
...
    } else {
        print "Can't determine file size for $fileName: $!\n";
    }

    my %sizes= (
        $inputFile =>   getFileSize($inputFile),
        $controlFile => getFileSize($controlFile),
    );

    my %object= (
        InputFile =>    $inputFileName,
...
        ControlSize =>  getFileSize($controlFileName),
    );
    return bless \%object;

    my %sizes= (
        $inputFile =>   $controlFile,
...
        $controlFileName => "ControlSize",
    );
    return bless \%object;

    my %sizes= (
        $inputFile =>   scalar -s $inputFile,
        $controlFile => scalar -s $controlFile,
    );

    my @files= getFileNames();

...
# or
    my %sizes;
    @sizes{@files}= map getFileSize($_), @files;

    my @files= getFileNames();
    my @sizes;
    for my $fileName (  @files  ) {
        push @sizes, getFileSize( $fileName );
    }

sub missingIsSmallest
{
...
    my @files= sort {
        missingIsSmallest( getFileSize($a), getFileSize($b) )
    }   getFileNames();

    reportFile( $file, getFileSize($file), "Financials" );
# or
...
        FileSize =>     getFileSize($file),
        Description =>  "Financials",
    );