print "Testing optional parametrs\n";
prog( 1,,,2,3);
print "End\n";

sub prog {
	my($a,$b,$c,$d,$e) = @_ ;
	
	
	print "a = $a\n";
	print "b = $b\n";
	print "c = $c\n";
	print "d = $d\n";
	print "e = $e\n";
}