#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;

my %optval;

GetOptions(\%optval, "output=s", "very+", "usage", "easter", "christmas");

sub usage {
	print "Użycie: hello [opcje] \n";
	print "    gdzie opcje to:\n";
	print "        --usage           - wypisz ten tekst\n";
	print "        --output=plik     - zapisz wynik do plik-u\n";
	print "        --christmas       - wypisz życzenia na Boże Narodzenie\n";
	print "        --easter	         - wypisz życzenia Wielkanocne\n";
	print "        --very            - bądz bardziej serdeczny\n";
	exit;
}

if ($optval{"usage"}) { 
	usage;
}

my $pref = "";
if ($optval{"very"}) { 
	$pref = "serdecznie ";
	for(my $i=1;$i<$optval{very};$i++) { 
		$pref = "bardzo " . $pref;
	}
}

my $tekst;
if ($optval{"christmas"}) { 
	$tekst = "życzę zdrowych i wesołych Świąt Bożego Narodzenia i Szczęśliwego Nowego Roku\n";
} elsif ($optval{"easter"}){ 
	$tekst = "życzę Wszystkiego Najlepszego na Wielkanoc\n"
} else  {
	$tekst = "pozdrawiam\n";
}

if($optval{output}) { 
	open(OUT,">$optval{output}");
} else { 
	open(OUT,">&1");
}

my $res = $pref . $tekst;

$res =~ s/^b/B/;
$res =~ s/^s/S/;
$res =~ s/^p/P/;
$res =~ s/^ż/Ż/;

print OUT $res;