package CanPrint;

sub new { ... }
sub print { ... }

package main;

my $x = CanPrint->new;

print $x "this\n";  # like $x->print("this\n");