view release on metacpan or  search on metacpan

t/01_xss.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

diag("<script>alert('all your codes are belongs to us');</script>");
ok 1;

done_testing;