my $stripper = new Pod::Stripper();
my $stripped;

open my $fh, '<', 'pod.pl';
open my $stripped_fh, '>', \$stripped;

$stripper->parse_from_filehandle( $fh, $stripped_fh );

close $stripped_fh;
close $fh;

print $stripped;