hjortron

use strict;
use warnings;
use Mojo::DOM;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 0 );

open my $outfh, ">", "out.csv" or die $!;
open (csvFile,'F:/tmp/3dcart list.csv') || die "Failed to open CSV file: $!\n";
while (<csvFile>){