You can take a few strokes off by inserting use File::Find; after line 2 and replacing system(...) with

find(sub {
    chown($line[4], $line[5], $File::Find::name); }, $line[0]);
[download]

pop; pop(@FIZZ); @FIZZ;