Perl text::csv unknown variable : Here is an easy one. 
I checked to documents, what is that in line 18 ? What kind of variable is @$row, is it the (default output)  $_ of the TEXT::CSV getline function ?  

     1  #!/efs/dist/perl5/core/5.10/exec/bin/perl
     2
     3  use Text::CSV   ;
     4  use Time::Local ;
     5
     6  use strict ;
     7  use warnings ;
     8  my $file = "$ARGV[0]" ;
     9
    10  open my $fh, "<", $file or die "$file: $!" ;
    11
    12
    13  my $csv = Text::CSV->new ({
    14      binary    => 1,
    15      auto_diag => 1,
    16      });
    17  while (my $row = $csv->getline ($fh)) {
    18      print "@$row\n" ;
    19  }