use warnings;
use Average;

$res = Average::av();
print $res;