sub ReadLine()
    {
    $UserInput = <>;
    chomp $userinput;
    return $userinput;
    }