lmao

#!/usr/bin/perl

use strict;
use warnings;
use Scalar::Util qw(looks_like_number);

print "Enter a number from 0 - 4: ";
my $usrInput = <STDIN>;
chomp $usrInput;

#my $isNum = looks_like_number($usrInput);

#print "$isNum\n";

errorCheck($usrInput);

sub errorCheck {
    while (0 == 0) {
      if (looks_like_number($_[0])) {
        if ($_[0] >= 0 && $_[0] <= 4){
            return $_[0];
        }
      }


    print "Invalid input, please reenter: ";
    $_[0] = <STDIN>;
    chomp $_[0];
    }
}