1#!/usr/bin/env perl
2
3use strict;
4use Getopt::Long;
5
6my $output;
7my $version;
8
9Getopt::Long::Configure('pass_through');
10Getopt::Long::GetOptions(
11	'output=s' => \$output,
12	'version'  => \$version
13);
14
15if ($version)
16{
17	printf "OpenWrt help2man 1.40.10\n";
18	exit 0;
19}
20elsif ($output)
21{
22	open O, "> $output" || die "Unable to open $output: $!\n";
23	print O "Dummy man page.\n";
24	close O;
25}
26else
27{
28	print O "Dummy man page.\n";
29}
30