#!/usr/bin/perl use Fugg; use strict; kiirNev(); kiirCim();