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());

##</code><code>##

$VAR1 = [
          'DBI',
          'a',
          'b',
          'c'
        ];