perl -MWWW::Mechanize -e '...' http://www.youtube.com/watch?v=l69Vi5IDc0g