use strict;
use warnings;
use Text::CSV_XS;
my $csv=Text::CSV_XS->new({binary=>1});
while (<DATA>) {
   chomp;
   last unless $csv->parse($_);
   my @vals=$csv->fields;
   print "INSERT INTO skjalaskra ('skjalamyndari', ".
      "'afhendingarar', 'skjalaflokkur', 'kassanumer'," .
      "'ork', 'fraar', 'tilar', 'innihald', 'yfirflokkur',".
      " 'athugasemdir')\n".
      " VALUES ('".join("', '",@vals)."')\n";
}