.pl-3 package user;

use strict;
sub new{ bless{ }; }
sub knows_perl { return 'yes'; }