Perl script to dump the urls submitted by an HN user(gist.github.com)

  #!/usr/bin/perl
  use strict;
  use warnings;
  use LWP::Simple;

  my %urls = ();
  process( "http://news.ycombinator.com/submitted?id=$ARGV[0]" );
  print join("\n",sort keys %urls)."\n";
  sub process {
     my $html = get( $_[0] );
     $html =~ s#<td class="title"><a href="(http[^"]+)#$urls{$1}++#eg;
     process("http://news.ycombinator.com$1") if $html =~ m#<a href="(/x\?fnid=[^"]+)" rel="nofollow">More</a>#;
  }

  wget -q -O - http://news.ycombinator.com/submitted?id=adulau | grep -o 'title"><a href="[^"]*" rel="nofollow">[^<]*<' | sed -e 's/title"><a href="\([^"]*\)" rel="nofollow">\([^<]*\)</\2 - \1/'