sub getFileSize { my( $fileName )= @_; my $size= -s $fileName; if( ! defined $size ) { return; # Return an empty list to indication "failure" } return $size; }