#!/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;
}