#!/usr/bin/perl
use strict;
use warnings;

# function expects to scaler arguments
sub domystuff($$)
{
    my $arg1 = shift;
    my $arg2 = shift;
    print "in domystuff\n";
    print "arg1 = $arg1\n";
    print "arg2 = $arg2\n";
}

# good -- 2 arguments
domystuff("foo", "bar");

# bad -- too many arguments -- compile error
domystuff("foo", "bar", "dowab");

# bad -- not enough arguments -- compile error
domystuff("foo");