or download this
#!/usr/bin/perl
use strict;
...
\107\105\99\107\105\110\103\32\117\112\32\100\117\115\116\10\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\101\118\101\114\121\119\104\101\114\101\32\98\117\116\32\111\110\108\
+121\32\118\105\115\105\98\108\101\32\116\104\114\111\117\103\104\32\1
+16\104\101\10
\114\97\100\111\110