Help for this page
this_script.pl /script/to/cleanup
#!/usr/bin/perl ... } ); my $Normal = $Document->normalized(2); print $Document;