Select Code to Download

package TEST;
..........
...
   my $par = shift;
   return $par;
}

my $obj = new TEST();
print $obj->xxx("hi")

print xxx("", "hi");