...
print qq(<OBJECT width="$w" height="$h" style="overflow:hidden" type="image/svg+xml" data="http://localhost/vmxl.svg"></OBJECT>);
...