#!/usr/bin/perl -W

use strict;
package core;

sub shot{
 ...
}