#!/usr/bin/perl -W

use strict;

core::shot(var);