my $foo = Foo->new(autothis => 1, delimthat => '::');
$foo->printme('text', align => 'vertical', font => 'Arial');

package Foo;

sub new {
   my ($class, %args) = @_;
   ...
};

sub printme {
   my ($self, $text, %args) = @_;
   ...
};