Just for fun, I did. Here's what happened:
$ perl -cw 1145471.pl
Unquoted string "p" may clash with future reserved word at 1145471.pl
+line 6.
Scalar found where operator expected at 1145471.pl line 11, near "$up"
(Missing semicolon on previous line?)
Scalar found where operator expected at 1145471.pl line 12, near "$dn"
(Missing semicolon on previous line?)
Scalar found where operator expected at 1145471.pl line 23, near "$c"
(Missing semicolon on previous line?)
Unquoted string "p" may clash with future reserved word at 1145471.pl
+line 24.
Scalar found where operator expected at 1145471.pl line 31, near "$up"
(Missing semicolon on previous line?)
syntax error at 1145471.pl line 6, near "p>"
syntax error at 1145471.pl line 10, near "chomp"
syntax error at 1145471.pl line 11, near "$up "
syntax error at 1145471.pl line 15, near ")
{"
syntax error at 1145471.pl line 19, near ")
{"
syntax error at 1145471.pl line 21, near "100)
"
syntax error at 1145471.pl line 24, near ") <"
syntax error at 1145471.pl line 29, near "}"
syntax error at 1145471.pl line 33, near "}"
1145471.pl had compilation errors.
Do you see the problem?