#!/usr/bin/env perl

package Haromszog;

use Exporter;
use vars qw($VERSION @ISA @EXPORT);
 
$VERSION 	= '1.00';
@ISA		= qw(Exporter);
@EXPORT		= qw(szamitTerulet szamitKerulet);

sub szamitTerulet {
	($alap, $magassag) = @_;
	$terulet = ($alap * $magassag) / 2.0;	
	return $terulet;
}

sub szamitKerulet {
	($a, $b, $c) = @_;
	$kerulet = $a + $b + $c;
	return $kerulet;
}

1;