package linux; sub foo { print "$_[0]\n"; } 1;