#!/usr/bin/perl -w

use strict;

print "Which manpage? ";
chomp ( my $manpage = <> );

# only allow say words and numbers in $manpage
die "Illegal input" unless $manpage =~ m/^\w+$/;

$_ = `man $manpage`;
print m/^DESCRIPTION(.*?)\n\n/ms;