#!/usr/local/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Cookies;

my $browser = new LWP::UserAgent;
$browser->cookie_jar( HTTP::Cookies->new(
  'file' => "$ENV{HOME}/.cookies.txt",
  'autosave' => 1)
);

my $url = 'https://noii.nasdaqtrader.com';
my $response = $browser->post($url,
  [
    txtUserName => '*****',
    txtUserPass => '*****'
  ]
);

while($response->is_redirect) {

  my $location = $url . $response->header("location");
  $response = $browser->get($location);
 
  if($response->is_success) {
    print $response->content;
  } else {
    print $response->status_line;
  }

}