Du schreibst einfach das Skript :-)

Stell doch mal eine konkretere Frage: weisst du nicht, wie du die Eingabe machst? Weisst du nicht, wie man eine Funktion in Perl aufschreibt?