C:\Steve\Dev\PerlMonks\P-2013-12-18@1604-Hash-Undef>perl testdf3.pl > testdf3.txt
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 38.
Use of uninitialized value $percentage in substitution (s///) at testdf3.pl line 40.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 41.
Use of uninitialized value $percentage in division (/) at testdf3.pl line 43.
Use of uninitialized value $info{"mount"} in hash element at testdf3.pl line 31.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 38.
Use of uninitialized value $percentage in substitution (s///) at testdf3.pl line 40.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 41.
Use of uninitialized value $percentage in division (/) at testdf3.pl line 43.
Use of uninitialized value $info{"mount"} in hash element at testdf3.pl line 31.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 38.
Use of uninitialized value $percentage in substitution (s///) at testdf3.pl line 40.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 41.
Use of uninitialized value $percentage in division (/) at testdf3.pl line 43.
Use of uninitialized value $info{"mount"} in hash element at testdf3.pl line 31.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 38.
Use of uninitialized value $percentage in substitution (s///) at testdf3.pl line 40.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 41.
Use of uninitialized value $percentage in division (/) at testdf3.pl line 43.
Use of uninitialized value $info{"mount"} in hash element at testdf3.pl line 31.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 38.
Use of uninitialized value $percentage in substitution (s///) at testdf3.pl line 40.
Use of uninitialized value $percentage in concatenation (.) or string at testdf3.pl line 41.
Use of uninitialized value $percentage in division (/) at testdf3.pl line 43.
Use of uninitialized value $info{"mount"} in hash element at testdf3.pl line 31.

C:\Steve\Dev\PerlMonks\P-2013-12-18@1604-Hash-Undef>type testdf3.txt

@headers (C:\Steve\Perl/debug.pm:887):
    [name]
    [size]
    [used]
    [free]
    [capacity]
    [mount]
@df (C:\Steve\Perl/debug.pm:887):
    [Filesystem           1K-blocks      Used Available Use% Mounted on
]
    [/dev/mapper/VolGroup00-LogVol00
]
    [                      28313732   9816924  17035356  37% /
]
    [/dev/sda1               101086     27516     68351  29% /boot
]
    [tmpfs                  2987896         0   2987896   0% /dev/shm
]
    [/dev/mapper/VolGroupPROD-ExportHome
]
    [                      15481840   3495504  11199904  24% /export/home
]
    [/dev/mapper/VolGroupPROD-Production
]
    [                      15481840   1523692  13171716  11% /production
]
    [/dev/mapper/VolGroupPROD-ProdLog
]
    [                      30963708  20410952   8979892  70% /production/log
]
    [/dev/mapper/VolGroupPROD-ProdArchive
]
    [                      10313016   1693640   8095500  18% /production/archive
]
@df (C:\Steve\Perl/debug.pm:887):
    [/dev/mapper/VolGroup00-LogVol00
]
    [                      28313732   9816924  17035356  37% /
]
    [/dev/sda1               101086     27516     68351  29% /boot
]
    [tmpfs                  2987896         0   2987896   0% /dev/shm
]
    [/dev/mapper/VolGroupPROD-ExportHome
]
    [                      15481840   3495504  11199904  24% /export/home
]
    [/dev/mapper/VolGroupPROD-Production
]
    [                      15481840   1523692  13171716  11% /production
]
    [/dev/mapper/VolGroupPROD-ProdLog
]
    [                      30963708  20410952   8979892  70% /production/log
]
    [/dev/mapper/VolGroupPROD-ProdArchive
]
    [                      10313016   1693640   8095500  18% /production/archive
]
%devices (C:\Steve\Perl/debug.pm:887(990)):
PREDEBUG (testdf3.pl:20):  $line = '/dev/mapper/VolGroup00-LogVol00
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [(undef)]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroup00-LogVol00]
    [size] => [(undef)]
    [used] => [(undef)]
PREDEBUG (testdf3.pl:38):  $percentage = ''
PREDEBUG (testdf3.pl:41):  $percentage = ''
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroup00-LogVol00]
    [size] => [(undef)]
    [used] => [(undef)]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x25b510)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroup00-LogVol00]
        [size] => [(undef)]
        [used] => [(undef)]
PREDEBUG (testdf3.pl:20):  $line = '                      28313732   9816924  17035356  37% /
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [37%]
    [free] => [17035356]
    [mount] => [/]
    [name] => []
    [size] => [28313732]
    [used] => [9816924]
PREDEBUG (testdf3.pl:38):  $percentage = '37%'
PREDEBUG (testdf3.pl:41):  $percentage = '37'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0.37]
    [free] => [17035356]
    [mount] => [/]
    [name] => []
    [size] => [28313732]
    [used] => [9816924]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x25b510)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroup00-LogVol00]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
PREDEBUG (testdf3.pl:20):  $line = '/dev/sda1               101086     27516     68351  29% /boot
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [29%]
    [free] => [68351]
    [mount] => [/boot]
    [name] => [/dev/sda1]
    [size] => [101086]
    [used] => [27516]
PREDEBUG (testdf3.pl:38):  $percentage = '29%'
PREDEBUG (testdf3.pl:41):  $percentage = '29'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0.29]
    [free] => [68351]
    [mount] => [/boot]
    [name] => [/dev/sda1]
    [size] => [101086]
    [used] => [27516]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x25b510)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroup00-LogVol00]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
PREDEBUG (testdf3.pl:20):  $line = 'tmpfs                  2987896         0   2987896   0% /dev/shm
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0%]
    [free] => [2987896]
    [mount] => [/dev/shm]
    [name] => [tmpfs]
    [size] => [2987896]
    [used] => [0]
PREDEBUG (testdf3.pl:38):  $percentage = '0%'
PREDEBUG (testdf3.pl:41):  $percentage = '0'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0]
    [free] => [2987896]
    [mount] => [/dev/shm]
    [name] => [tmpfs]
    [size] => [2987896]
    [used] => [0]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x25b510)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroup00-LogVol00]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
PREDEBUG (testdf3.pl:20):  $line = '/dev/mapper/VolGroupPROD-ExportHome
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [(undef)]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-ExportHome]
    [size] => [(undef)]
    [used] => [(undef)]
PREDEBUG (testdf3.pl:38):  $percentage = ''
PREDEBUG (testdf3.pl:41):  $percentage = ''
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-ExportHome]
    [size] => [(undef)]
    [used] => [(undef)]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4638)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-ExportHome]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
PREDEBUG (testdf3.pl:20):  $line = '                      15481840   3495504  11199904  24% /export/home
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [24%]
    [free] => [11199904]
    [mount] => [/export/home]
    [name] => []
    [size] => [15481840]
    [used] => [3495504]
PREDEBUG (testdf3.pl:38):  $percentage = '24%'
PREDEBUG (testdf3.pl:41):  $percentage = '24'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0.24]
    [free] => [11199904]
    [mount] => [/export/home]
    [name] => []
    [size] => [15481840]
    [used] => [3495504]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4638)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-ExportHome]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
PREDEBUG (testdf3.pl:20):  $line = '/dev/mapper/VolGroupPROD-Production
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [(undef)]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-Production]
    [size] => [(undef)]
    [used] => [(undef)]
PREDEBUG (testdf3.pl:38):  $percentage = ''
PREDEBUG (testdf3.pl:41):  $percentage = ''
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-Production]
    [size] => [(undef)]
    [used] => [(undef)]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4848)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-Production]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
PREDEBUG (testdf3.pl:20):  $line = '                      15481840   1523692  13171716  11% /production
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [11%]
    [free] => [13171716]
    [mount] => [/production]
    [name] => []
    [size] => [15481840]
    [used] => [1523692]
PREDEBUG (testdf3.pl:38):  $percentage = '11%'
PREDEBUG (testdf3.pl:41):  $percentage = '11'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0.11]
    [free] => [13171716]
    [mount] => [/production]
    [name] => []
    [size] => [15481840]
    [used] => [1523692]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4848)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-Production]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
    [/production] => [HASH(0x25b510)]
        [capacity] => [0.11]
        [free] => [13171716]
        [mount] => [/production]
        [name] => []
        [size] => [15481840]
        [used] => [1523692]
PREDEBUG (testdf3.pl:20):  $line = '/dev/mapper/VolGroupPROD-ProdLog
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [(undef)]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-ProdLog]
    [size] => [(undef)]
    [used] => [(undef)]
PREDEBUG (testdf3.pl:38):  $percentage = ''
PREDEBUG (testdf3.pl:41):  $percentage = ''
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-ProdLog]
    [size] => [(undef)]
    [used] => [(undef)]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4860)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-ProdLog]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
    [/production] => [HASH(0x25b510)]
        [capacity] => [0.11]
        [free] => [13171716]
        [mount] => [/production]
        [name] => []
        [size] => [15481840]
        [used] => [1523692]
PREDEBUG (testdf3.pl:20):  $line = '                      30963708  20410952   8979892  70% /production/log
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [70%]
    [free] => [8979892]
    [mount] => [/production/log]
    [name] => []
    [size] => [30963708]
    [used] => [20410952]
PREDEBUG (testdf3.pl:38):  $percentage = '70%'
PREDEBUG (testdf3.pl:41):  $percentage = '70'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0.7]
    [free] => [8979892]
    [mount] => [/production/log]
    [name] => []
    [size] => [30963708]
    [used] => [20410952]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4860)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-ProdLog]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
    [/production] => [HASH(0x25b510)]
        [capacity] => [0.11]
        [free] => [13171716]
        [mount] => [/production]
        [name] => []
        [size] => [15481840]
        [used] => [1523692]
    [/production/log] => [HASH(0x24e4638)]
        [capacity] => [0.7]
        [free] => [8979892]
        [mount] => [/production/log]
        [name] => []
        [size] => [30963708]
        [used] => [20410952]
PREDEBUG (testdf3.pl:20):  $line = '/dev/mapper/VolGroupPROD-ProdArchive
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [(undef)]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-ProdArchive]
    [size] => [(undef)]
    [used] => [(undef)]
PREDEBUG (testdf3.pl:38):  $percentage = ''
PREDEBUG (testdf3.pl:41):  $percentage = ''
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0]
    [free] => [(undef)]
    [mount] => [(undef)]
    [name] => [/dev/mapper/VolGroupPROD-ProdArchive]
    [size] => [(undef)]
    [used] => [(undef)]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4a70)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-ProdArchive]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
    [/production] => [HASH(0x25b510)]
        [capacity] => [0.11]
        [free] => [13171716]
        [mount] => [/production]
        [name] => []
        [size] => [15481840]
        [used] => [1523692]
    [/production/log] => [HASH(0x24e4638)]
        [capacity] => [0.7]
        [free] => [8979892]
        [mount] => [/production/log]
        [name] => []
        [size] => [30963708]
        [used] => [20410952]
PREDEBUG (testdf3.pl:20):  $line = '                      10313016   1693640   8095500  18% /production/archive
'
%info (C:\Steve\Perl/debug.pm:887(990)):
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [18%]
    [free] => [8095500]
    [mount] => [/production/archive]
    [name] => []
    [size] => [10313016]
    [used] => [1693640]
PREDEBUG (testdf3.pl:38):  $percentage = '18%'
PREDEBUG (testdf3.pl:41):  $percentage = '18'
%info (C:\Steve\Perl/debug.pm:887(990)):
    [capacity] => [0.18]
    [free] => [8095500]
    [mount] => [/production/archive]
    [name] => []
    [size] => [10313016]
    [used] => [1693640]
%devices (C:\Steve\Perl/debug.pm:887(990)):
    [] => [HASH(0x24e4a70)]
        [capacity] => [0]
        [free] => [(undef)]
        [mount] => [(undef)]
        [name] => [/dev/mapper/VolGroupPROD-ProdArchive]
        [size] => [(undef)]
        [used] => [(undef)]
    [/] => [HASH(0x24e3e28)]
        [capacity] => [0.37]
        [free] => [17035356]
        [mount] => [/]
        [name] => []
        [size] => [28313732]
        [used] => [9816924]
    [/boot] => [HASH(0x21e708)]
        [capacity] => [0.29]
        [free] => [68351]
        [mount] => [/boot]
        [name] => [/dev/sda1]
        [size] => [101086]
        [used] => [27516]
    [/dev/shm] => [HASH(0x21e5b8)]
        [capacity] => [0]
        [free] => [2987896]
        [mount] => [/dev/shm]
        [name] => [tmpfs]
        [size] => [2987896]
        [used] => [0]
    [/export/home] => [HASH(0x24e4800)]
        [capacity] => [0.24]
        [free] => [11199904]
        [mount] => [/export/home]
        [name] => []
        [size] => [15481840]
        [used] => [3495504]
    [/production] => [HASH(0x25b510)]
        [capacity] => [0.11]
        [free] => [13171716]
        [mount] => [/production]
        [name] => []
        [size] => [15481840]
        [used] => [1523692]
    [/production/archive] => [HASH(0x24e4848)]
        [capacity] => [0.18]
        [free] => [8095500]
        [mount] => [/production/archive]
        [name] => []
        [size] => [10313016]
        [used] => [1693640]
    [/production/log] => [HASH(0x24e4638)]
        [capacity] => [0.7]
        [free] => [8979892]
        [mount] => [/production/log]
        [name] => []
        [size] => [30963708]
        [used] => [20410952]
8979892
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x24e4a70)'
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x24e4638)'
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/production/log is at 70% with 8979892K remaining.
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x24e3e28)'
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/ is at 37% with 17035356K remaining.
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x21e708)'
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/boot is at 28% with 68351K remaining.
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x21e5b8)'
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x24e4800)'
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/export/home is at 24% with 11199904K remaining.
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x25b510)'
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/production is at 11% with 13171716K remaining.
PREDEBUG (testdf3.pl:51):  $info = 'HASH(0x24e4848)'
PREDEBUG (testdf3.pl:55):  Found $info->{capacity} to be > .10
/production/archive is at 18% with 8095500K remaining.