in reply to eval with semicolon
eval ({ ... }); [download]
PS. You should use <code> ... </code> for writing perl code ...