How to make this code work in perl?

[Sean K]

<script type="text/javascript">
var _tbdef = {user: 'Forumotion'};
(function(){
var d = document;var tbjs = d.createElement('script'); tbjs.type = 'text/javascript';
tbjs.async = true; tbjs.src = 'http://tweetboard.com/tb.js'; var tbel = d.getElementsByTagName('head')[0];
if(!tbel) tbel = d.getElementsByTagName('head')[0]; tbel.appendChild(tbjs);
})();
</script>