package Foo1;
use strict;
sub bar { 
  print "Hello (FIRST Param=$_[0]) (Second-param=$_[1])\n";
}
1;