Select Code to Download

push (@dfdata_out,{device => $dfdata_row{'device'}, 'mount' => $dfdata
+_row{'mount'},
                       'size' => $dfdata_row{'size'}, 'tuse' => $dfdat
+a_row{'tuse'},
...
                       'wuse' => $dfdata_row{'wuse'}, 'wchange' => $df
+data_row{'wchange'},
                       'muse' => $dfdata_row{'muse'}, 'mchange' => $df
+data_row{'mchange'},
                       'yruse' => $dfdata_row{'yruse'}, 'yrchange' => 
+$dfdata_row{'yrchange'}});

push @dfdata_out, (\%dfdata_row);

#!/usr/bin/perl
use warnings;
...