package my_mod;

sub cat{
  print "meeow.\n";
}

1;

##</code><code>##

#!/usr/bin/env perl

use my_mod;

cat();