#!/usr/bin/perl
use LWP::Simple;
use HTML::TokeParser;
use URI::Escape;

&sw;

sub sw {
        $content = get('http://example.com/test.html');

....truncated