Help for this page

Select Code to Download

Select or download this

while (my $line = <TEMP>)
{   
...
    my @column = split (/,/,$line);
    ...
}