my $output; if ($self->title eq 'new') { my @headers = dir_list('/home/bbearnes/p1k3.com/imgs/header', 'alpha', '\.(jpg|png)$'); my $header_image = $headers[rand @headers]; my $LinkDump = $self->wala->print_page('LinkDump'); return <<"END_HTML";

wala::LinkDump

$LinkDump

For older stuff, see LinkDumpArchive.

All original content on p1k3, unless otherwise noted, is released to the public domain.

END_HTML } else { return <<"END_HTML";

All original content on p1k3, unless otherwise noted, is released to the public domain.

END_HTML }