Select Code to Download

open DF, "df -k |" or die "$!\n";
print scalar <DF>;
...
    @lines;

print $_->[0] for @sorted;

open DF, "df -k |" or die "$!\n";
print scalar <DF>;
...
    <DF>;

close DF;