use Path::Tiny qw/ path /;
path( $newFileName )->spew_utf8( qq{<base href="$insert_str">}, $content  );