#!/usr/bin/env perl

use strict;
use warnings;

use IO::Prompt::Tiny qw(prompt);

my $input = prompt('Enter: ', 50);

print "$input\n";