use strict;
use warnings;


package DBI;
use Data::Dumper;

sub quote ($$;$) {
    print Dumper \@_;
}

package CGI;

sub param {
    return qw/a b c/;
}

package main;

DBI->quote(CGI->param());

#DBI::quote(CGI->param());