#! /usr/bin/perl -w

my ( $length, $breadth, $height ) = ( 10, 20, 30);

my $volume = calc_volume( $length, $breadth, $height );

print "\nvolume = $volume\n";

sub calc_volume {

	my ( $length, $breadth, $height )  = @_;
	
	my $volume = $length * $breadth * $height;
	
	return $volume;

}