open ( FILE_ONE, "foo.txt" ) || die "Unable to open foo: $!";
open ( FILE_TWO, "bar.txt" ) || die "Unable to open bar: $!";

CompareFiles ( \*FILE_ONE, \*FILE_TWO );

close ( FILE_TWO );
close ( FILE_ONE );