#!/usr/bin/perl -w
use strict;
use Stripper;
my $Stripper = new Pod::Stripper();
$Stripper->parse_from_filehandle(\*STDIN) unless (@ARGV);
for my $ARGV (@ARGV) {
    $Stripper->parse_from_file($ARGV);
}