sub get_time
{    my $time;
    do 
    {    print "\n-> ";
        $time = <>;
        chomp $time;
        print "\n";
        
        exit if $time =~/^q/i;
        no warnings;                # quick patch 
        next if $time =~ /([^\d])/; # please fix 
        use warnings;               # me (:
   } while ($time ne $time+0);

    return $time;
}