sub sysread { 
   if    (@_ == 4) { sysread($_[0], $_[1], $_[2], $_[3]) }
   elsif (@_ == 3) { sysread($_[0], $_[1], $_[2]) }
   else            { croak("Bad usage") }
}

...
goto &sysread;
...
[download]