# -*- Mode: Perl; comment-column: 40 -*- 
use simple;

print barf('a lot'), "\n";		# Possible thanks to the export list
$str = simple::barf('a little');	# Explicit calling also possible
print $str, "\n"; 

print "The successor to 3 is ", succ(3), "\n";
print "The successor to 2 is ",  succ(2), "\n";
$i = 0;

$i = 0;
for (1..5) {
    print '$i = ', inc($i), "\n";
}

print "And the final value of \$i is $i\n";