Select Code to Download

use strict;
use warnings;    #<<-- warnings
...
        print W $line[$i];
    }
}

use Modern::Perl;

...
}

close $w;