Source
######################
# embed vimeo movie
# usage: {{vimeo('id','width','height')}}
sub vimeo {
my ($id,$width,$height) = @_;
return qq(<object width="$width" height="$height">
<param name="allowfullscreen" value="true" />
<param name="allowscriptaccess" value="always" />
<param name="movie" value="http://vimeo.com/moogaloop.swf?clip_id=$id&server=vimeo.com&show_title=1&show_byline=1&show_portrait=0&fullscreen=1" />
<embed src="http://vimeo.com/moogaloop.swf?clip_id=$id&server=vimeo.com&show_title=1&show_byline=1&show_portrait=0&fullscreen=1" type="application/x-shockwave-flash" allowfullscreen="true" allowscriptaccess="always" width="$width" height="$height">
</embed>
</object>);
}