#!/usr/bin/perl -w


$svatek_main  =  "svatek.txt";
$svaterc  = "$ENV{HOME}/.svatek";

%a

sub read_file($) {
	my $file
	open 
}

