Select Code to Download

sub increment {
     ++$_[0];
}
$num=0;
increment($num);
print $num,"\n";