#!/usr/local/bin/perl
# toh-ok.pl -- Towers Of Hanoi, jetzt hoffentlich richtig!

print "how many discs? ";
$n = <STDIN>;   chomp($n);

t_o_h($n, "left", "center", "right");

sub t_o_h
{
    local($nr, $from, $via, $to) = @_;
    return if $nr == 0;

    t_o_h($nr-1, $from, $to, $via);
    print "move disc from $from to $to\n";
    t_o_h($nr-1, $via, $from, $to);
}