use File::Fetch;
use LWP::UserAgent ();
use DBI;
use parent 'HTTP::Message';
$mess = HTTP::Message->new();
$mess->encode(gzip,deflate);
$filename='/temp/edgar/workfile.txt';
unlink ($filename);

$url='https://www.sec.gov/Archives/edgar/data/1869467/0000919574-23-004048.txt';
my $ua = LWP::UserAgent->new(timeout => 10);
$ua->default_header('Accept-Encoding' =>$mess = HTTP::Message->new());
$ua->default_header( USER_AGENT =>'COMPANY admin@example.com' );
print "Now downloading the file...\n";
my $res = $ua->mirror( $url, $filename );