use strict;
use warnings;

open(my $fh, '<', 'dev.csv') or die "Unable to open 'dev.csv' for reading: $!";
while (<$fh>) {
    print;
}