#!/usr/bin/perl

use warnings;
use strict;
use Term::ReadKey;

while(1) {
    #do some stuff
    print "Did something\n";
    sleep 5;
    if (my $line= ReadLine -1) {
        print "Got this command: $line";
    }
}