#!/usr/bin/perl -Tw
use lib 'where/a/pm/resides';
use strict;
use A;

a;

exit;