#!/usr/bin/perl use strict; use MyPackage; MyPackage::close_cnx(); print "foo\n";