PERL: Read To Colums

$file = 'input.csv';

open (F, $file) || die ("Could not open $file!");

while ($line = )
{
 ($field1,$field2,$field3,$field4) = split ',', $line;
 print "$field1 : $field2 : $field3 : $field4";

}

close (F);