#!/usr/bin/perl -w

open READ,"test.csv" or die "Cannot open test.csv\n: $!";
while ($line = <READ>) {
    print STDOUT "line = $line";
}