Select Code to Download

Cannot decode string with wide characters at /usr/lib/perl/5.10/Encode
+.pm line 174.

#!/usr/bin/perl
use strict;
...
croak("It works yet...");
my $referer_url = "@{[ $q->url ]}";
croak("Cannot decode string... error before this line.");