#!/usr/bin/perl -w
use strict;
use File::Comments;

my $stripper = File::Comments->new();
my $stripped = $stripper->stripped("foo.html");
print "$stripped\n";