view release on metacpan or  search on metacpan

bin/paper-wallet  view on Meta::CPAN

	'network|n=s' => \$network,
	'help|h' => \$help,
);

my $interactive = !$stdout;

sub echo
{
	my ($message) = @_;

	say $message if $interactive;
	return;
}

sub prompt
{
	my ($info) = @_;
	echo $info;

	my $data = <STDIN>;
	chomp $data;