#!/usr/bin/perl
use strict;
use warnings;

print sum( 1000 );
sub sum {
    my ($num, $tot) = @_;
    return $tot if ! $num;
    @_ = ($num - 1, $tot += $num);
    goto ∑
}