#!/usr/bin/perl BEGIN { push( @INC, "/data/script" ); }