Priv.edb File Size Tracking Through Perl

I've updated the Disk Space Utilization Perl script to add a column which displays file size information for your Exchange private information store. This is nice to use to compare with the disk free space on the server to determine if you're going to have a potential issue if you need to do offline Exchange maintenance. Here is the main subroutine I've added:

# Figuring out the file size for the priv1.edb file
$filename="\\\\@Drivearray[0]\\@Drivearray[2]\\Program Files\\Exchansrvr\\MDBDATA\\priv1.edb";
$edb=0;
$edb=(stat($filename))[7];
$edb1=$edb / 1023741824;
$edb1=sprintf("%5.2f/n", "$edb1");

The full script with the modifications for the edb addition can be downloaded at:

http://webpages.charter.net/mhenderson1/Blogs/PerlDriveSpace.pl

Current constraints in the subroutine limit the tracking of only one .edb file per Exchange server. I may change this in the future if we move to a multiple store standard.