sub test($string) 
{ 
print $string; 
}