my $out = `$DIFF $setuidtoday $setuidyest`;
print $out;
[download]

You might want to try:

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