sub tuwas ()
    {
    our $param1 = shift;    
    our $param2 = shift;
..........................
    }