#!perl use strict; use LWP::UserAgent; use constant URL => 'http://east/dev01/sd/action_sd.rscr'; my $ua = LWP::UserAgent->new(); $ua->credentials( 'east:80', 'device, '****', '****' ); my $response = $ua->get(URL); if ($response->is_success) { print $response->content; } else { die $response->status_line; }