sub SEEK_SET { 1 }

Quote

      In the current implementation, scalar constants are actually inlinable
      subroutines. As of version 5.004 of Perl, the appropriate scalar con-
      stant is inserted directly in place of some subroutine calls, thereby
      saving the overhead of a subroutine call. See "Constant Functions" in
      perlsub for details about how and when this happens.

1
2
3
4
5
6
7
8
9
10

tina@lugosi:~$ perl -MO=Deparse -e' sub BLA { 23 } print BLA'
sub BLA {
    23;
}
print BLA();
-e syntax OK
tina@lugosi:~$ perl -MO=Deparse -e' sub BLA() { 23 } print BLA'
sub BLA () { 23 }
print 23;
-e syntax OK

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem