19 main();

    19 main();

    20 

    20 

    21 sub main()

    21 sub main()

    22 {

    22 {

    23   my $csvfile = shift @ARGV;

    23   my $csvfile = shift @ARGV;

    25 

    24 

    26   if(! -e $csvfile)

    25   if(! -e $csvfile)

    27   {

    26   {

    28     die "cannot find $csvfile\n";

    27     die "cannot find $csvfile\n";

    29   }

    28   }