my $out = `$DIFF $setuidtoday $setuidyest`;
print $out;

##</code><code>##

use Data::Dumper;
my $out = `$DIFF $setuidtoday $setuidyest`;
print '<pre>', Data::Dumper->Dump([$out],['out']), '</pre>';