- my $path = "marc/$id.$format";
-
- open(my $out, '>:utf8', $path);
- print $out $marc->as_usmarc;
- close($out);
-
- diag "created $path ", -s $path, " bytes";
-
- diag $marc->as_formatted;
-
- $nr++;
-
- die if $nr == 3; # FIXME
-
- $mech->follow_link( url_regex => qr/set_entry=0*$nr/ );
-
- return $marc->as_usmarc;