Select Code to Download

open my $csvIn, '<', $fileName or die "Failed to open $fileName: $!";

<$csvIn> for 1 .. 2;

while (defined (my $line = <$csvIn>)) {

$line =~ tr/;,/ ./;

#!/usr/bin/perl
use strict;
...
}

close $csvIn;