look on my works, ye mighty, and despair

print @{[  map { $_ = "<li><a href='$_'>$_</a></li>" }
      grep s/.*$output_url\//http:\/\/$ENV{'SERVER_NAME'}$output_url/,
      map { $_->[0] }
      sort { $a->[1] <=> $b->[1] }
      map { [$_, -M] }
      @{[<image_dir/*>]} ]}[0..9];