#!/usr/local/bin/perl use lib "/home/user/scripts"; use kp1;