#!/usr/local/bin/perl
# lastone.pl -- Letzte Anweisung == Wert der Funktion
#         Erst ohne -w, dann mit -w aufrufen!

use vars qw ($result);
sub myfunc {
    $result = 4711;           # Wirklich letzte Anweisung?

    print "leaving myfunc()\n" if $^W;
}

$res = myfunc();              # Aufruf
print "Result: >$res<\n";     # Ergebnis