$mech->get($url);
$mech->form_name( 'FVS318');
$mech->field('id', $USER);
$mech->field('p',$PASS);
$mech->click('submit');
[download]

my $mech = LWP::UserAgent->new;
$mech->credentials(  '192.168.0.1:80',
                        'FVS318',
                        'admin' => 'secret'
);
[download]

garskoci,
Are the user and pass fields form values as the WWW::Mechanize example indicates, or are they more like HTTP basic auth like the LWP::UserAgent shows? I am just guessing, but what does the following code do?

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->credentials(
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
# And then $mech->get() the same as in the LWP::UserAgent code
[download]

FWIW, take a look at WWW::Mechanize::Shell as well.

Cheers - L~R

Update: Added a to autocheck

I'm sorry, but like this? I get an error. Remember. Newbie. I am able to log in with the code that you provided.

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( utocheck => 1 );
$mech->credentials(
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
# And then $mech->get() the same as in the LWP::UserAgent code

my $mech->get(credentials(  '192.168.0.1:80',
                        'FVS318',
                        'admin' => 'secret'
);
[download]

Thank you for your help. I will work on this tomorow. I am off to a wedding. Hopefully I can make some progress and post what I have.
Thank you.