my $file_size = (stat($file_path))[7] ;

##</code><code>##

  @FL_stats = stat ("") ; # Geting stats of file.
  $FL_Dev = $FL_stats[0]  ;     # Device that the file resides on.
  $FL_Inod = $FL_stats[1]  ;    # Inode for this file.
  $FL_Mode = $FL_stats[2]  ;    # Permissions for the file.
  $FL_NbLink  = $FL_stats[3] ;  # Number of hard links to the file.
  $FL_UID = $FL_stats[4]  ;     # Numerical user ID for the file owner.
  $FL_GID = $FL_stats[5]  ;     # Numerical group ID for the file owner.
  $FL_TypDev = $FL_stats[6]  ;  # Device type if the file is a device.
  $FL_size = $FL_stats[7]  ;    # Size of the file in bytes.
  $FL_AcTime = $FL_stats[8]  ;  # When the file was last accessed.
  $FL_MdTime = $FL_stats[9]  ;  # When the file was last modified.
  $FL_ChTime = $FL_stats[10] ;  # When the file status was last changed.
  $FL_BlkSize = $FL_stats[11] ; # The optimal block size for i/o operations on the file system containing the file.
  $FL_Blocks = $FL_stats[12] ;  # The number of clocks allocated to the file.