#!/usr/bin/perl use lib qw(/path/myprj); use strict; 1;