#!/usr/bin/perl -w
use strict;($~=q(rekcah$lPtonsuJ))=~y[-#.$][.., ];$_=
qw($aa%^"^$aag^x^%^$^g^@^naagg^k^%^n^gi^g=aagk);
y-gi"xn=k@%$^a-1278934560,.-;print+(reverse((split
(//,$~))[eval]));
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.