sub foo {
    my $param = shift || croak 'Param must be supplied';
}