#!/usr/bin/perl

use strict;
#use lib 'd:/Programs/Perl/lib';
use UtilsC;

my $f1 = ($ARGV[0])? $ARGV[0] : "get.pl";
my $f2 = ($ARGV[1])? $ARGV[1] : "get.pl";
#print "E2 = ", UtilsC::E2_C(3.0), "\n";
print "Same? ", UtilsC::IsSameFile($f1, $f2), "\n";