Select Code to Download

use LWP::Simple;
my $source = get("http://whatever.url.you/want/to/view.html");

#!/usr/bin/perl -w

...
    print $attr{href}, "\n";
  }
}