#!/usr/bin/perl
use WWW::Extractor ':all';
$filename = shift;
load_html $filename;
$filename = "pretty_$filename";
open OUT, ">$filename";
print OUT document->as_string;