#! perl -slw
use strict;
use Macro;

MACRO sub fred {
	my( $a, $b, $c ) = @_;
	return ( $a + $b ) * $c;
}
ENDMACRO

my( $x, $y, $z ) = ( 1, 4, 7 );
print fred( $x, $y, $z );

for my $x ( 1 .. 10 ) {
	print fred( $x, $y, $z );
}
__END__
P:\test>435608
35
35
42
49
56
63
70
77
84
91
98