#!/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]

graskoci,
I get an error.

In your original post you said you can not login and in this one you say you get an error. Keep in mind that we can't see what you see so in order to help we need to know what is not working, how it is not working, and what error messages you get. In this case, I believe I made a typo which you could have fixed by RTFMing. Here is the corrected code that should work.

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

my $url = 'http://192.168.0.1/'; # Change if necessary
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->credentials (
    '192.168.0.1:80',
    'FVS318',
    'admin' => 'secret'
);
$mech->get( $url );

# Rest of code goes here
[download]

Incidently, davido had an almost identical problem which you can read about here.

Cheers - L~R