#!/usr/bin/perl
use strict;
use warnings;
use IO::Prompt::Hooked;

my $days = prompt(
    message  =>  "Enter no of days older (1-90):",
    error    =>  "Invalid input, please try again\n",
    validate =>  sub {
        my $days = shift;
        return ( $days =~ /^[1-9]\d?$/  and  $days <= 90 ); 
    },
);

print "You entered $days days\n\n";