#!/usr/bin/perl

use strict;
use warnings;

package testfish;

sub sub_to_do_something
{
  print "Doing something \n";
}

print "FISH\n";
1;