How to write modern Perl

Post.pm

package Post;

use strict;
use warnings;

sub new{
  my $class = shift;
  my $word = shift;
  return bless {'word'=>$word},$class;
}

sub wri{
  my ($self,$arg) = @_;
  print $arg;
}

sub loop{
  my $self = shift;
  for(my $i=0;$i<10;$i++){
     print "$self->{word}\n";
  }
}

sub pass{
  my ($self,$k) = @_;
  $self->wri($k);
}

1;
__END__

#!/usr/bin/perl

use strict;
use warnings;
use Post;

my $n = Post->new("Call constructor!!");
$n->loop();
$n->pass('pipin!pin!!!');