11 mech => WWW::Mechanize->new(),
18 my ( $self, $id, $marc ) = @_;
20 my $database = ref $self;
21 mkdir 'marc' unless -e 'marc';
22 mkdir "marc/$database" unless -e "marc/$database";
24 my $path = "marc/$database/$id";
26 open(my $out, '>:utf8', $path) || die "$path: $!";
30 warn "# created $path ", -s $path, " bytes";