} print "Inside the sub at line 34: |$result|\n"; return $result; } my $ result = egal($param); # call the sub! print "At line 39 (after the sub), \$result is: |$result|\n";