#!/usr/bin/env perl use strict; use Getopt::Long; my $output; my $version; Getopt::Long::Configure('pass_through'); Getopt::Long::GetOptions( 'output=s' => \$output, 'version' => \$version ); if ($version) { printf "OpenWrt help2man 1.40.10\n"; exit 0; } elsif ($output) { open O, "> $output" || die "Unable to open $output: $!\n"; print O "Dummy man page.\n"; close O; } else { print O "Dummy man page.\n"; }