Select Code to Download

#!/usr/bin/perl
use strict;
...
sub foo($) {  #actual foo implementation
  print shift;
}

sub foo($$);      #two scalar arguments
foo $bar;         #error
foo @bar;         #error
foo $bar, $baz;   #ok
foo $bar, @baz;   #no error, but does it do what you want?