Select Code to Download

my @colNames = qw(name status class major po phone advisor email);
while (<>)
...
}

close OUTPUT || die "Cannot close OUTPUT: $!\n";