#!/bin/sh

URL=$(GET $1|perl -ne 'if (/embed/ && m/src=\"([^"]+)/) { print $1.qq(\n)}'|xargs GET|perl -ne 'if (/mms/ && m/HREF="([^"]+)/) {print $1.qq(\n); exit}')

exec mplayer $URL