#!/usr/local/bin/perl

my $dir = "/home/user/scripts";
push (@INC, $dir);
use kp1;

sub num1
{
   kp1::hello (8);
}

&num1;