sub ADDONE { $value = $_[0]; $newvalue = $value ++ ; return $newvalue; } $numberplusone = &ADDONE($number);
my $debug='1'; if ($debug){print "Debug mode is on. \n";}