#!/usr/bin/perl --
use strict;
use warnings;

## uncomment if module already installed in standard places in @INC
#~ use MyFrndJk;

Main( @ARGV );
exit( 0 );

sub Main {
    my $dtop  = "C:/Users/jeyakuma/Desktop";
    my $conf  = "$dtop/perl/xpathconfiguration.pl";
    my $input = "$dtop/shipping project/input/input.txt";
    my $courl = "$dtop/shipping project/url processing/competitors_in_url.txt";
    my $codir =
      "$dtop/shipping project/url processing/competitors_in_directory.txt";
    my $dbdir = "$dtop/shipping project/database";

## use modules at runtime .. by name .. if installed in $drop/perl
    use lib;
    lib->import( "$drop/perl" );
    require MyFrndJk;

    MyFrndJk::create( $conf, $input, $courl, $codir, $dbdir );
    MyFrndJk::difference( $conf, $courl, $codir, );
} ## end sub Main