Select Code to Download

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

  @FL_stats = stat ("") ; # Geting stats of file.
  $FL_Dev = $FL_stats[0]  ;     # Device that the file resides on.
...
  $FL_ChTime = $FL_stats[10] ;  # When the file status was last change
+d.
  $FL_BlkSize = $FL_stats[11] ; # The optimal block size for i/o opera
+tions on the file system containing the file.
  $FL_Blocks = $FL_stats[12] ;  # The number of clocks allocated to th
+e file.