#Neural Network Program
$aus = 1;
while ($aus){
    print "Please enter a phrase:\n\n";
    my $input = <STDIN>;
    print "Was that the correct answer?\n";
    $answer = <STDIN>;
if($answer =~ "Yes") {
    open(infile, "C:\Dokumente Und Einstellungen\Maxi\Desktop\BOT\learn.tst")
}
else {
    print "Oh, Then you will have to reconfigurate me.\n";
}
}