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