my $file="testdata.csv";
open(FILE, $file) or
    die "Can't open $file: $!\n";
select((select(FILE), $/ = undef)[0]);
$_=<FILE>