sub cin_read {
    my $inchar = getc;
    $inchar = getc while $inchar =~ /^\s$/;
    my $result = '';
    while ($inchar =~ /^\S$/) {
        $result .= $inchar;
        $inchar = getc;
    }
    return $result;
}