Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Check the prototype
#!/usr/bin/perl
use strict;
use warnings;
sub add_two ($$) {
    return $_[0]+$_[1];
}
print prototype(\&add_two),"\n"; # produces '$$'
print prototype('add_two'),"\n"; # likewise