#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Mojo::UserAgent;

my $url = 'https://www.sec.gov/Archives/edgar/daily-index/2023/QTR3/form.20230712.idx';
my $ua  = Mojo::UserAgent->new;
$ua->transactor->name('COMPANY youremail@email.com');
say $ua->get( $url )->res->body;
# or
$ua->get( $url )->res->save_to('derp.txt');