#!/usr/bin/env perl -l

use strict;
use warnings;

package Some::Module;

sub new { bless {} => shift }

sub all_vars { print "all vars = @_" }

package main;

my $obj = Some::Module::->new;
$obj->all_vars(qw{a b c d});