download file via perl LWP module

dl_via_LWP.pl

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $url = 'https://github.com/AUTHOR/REPOSITORY/archive/refs/heads/master.zip';
my $filename = '/tmp/main.zip';

my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->proxy(['http', 'https'], 'http://proxy.boss.com:3128');

my $response = $ua->get($url);

if ($response->is_success) {
    open(my $fh, '>', $filename) or die "Cannot open '$filename' for writing: $!";
    binmode $fh;
    print $fh $response->content;
    close $fh;
    print "File downloaded successfully.\n";
} else {
    die "Download failed: ", $response->status_line;
}