my $f1 = $ARGV[1];
    my $f2 = $ARGV[2];
    my $b1 = undef;
    my $b2 = undef;
    open f1_p, "<$f1" || die "Fatal'd\n"; 
    open f2_p, "<$f2" || die "Fatal'd\n";
      while (<f1_p>){$b1.=$_;}
      while (<f2_p>){$b2.=$_;}
    close f1_p; close f2_p;
    undef(@ARGV); #Free Memory?
    my($old, $new) = String::Diff::diff($b1, $b2);