#!/usr/bin/perl -w

sub mul {

	$ans = 1;
	$num = shift;
	while (defined($num))
	{
		$ans = $ans * $num;
		$num = shift;
	}
	return $ans;
} 


print mul(3,4,5);

