#!/usr/bin/env perl

use strict;
use warnings;

use Getopt::Usaginator <<_END_;
Usage: t1
_END_

usage 2 => "Banana\n\n";