Small project for the Perl course in university.