use File::Compare;
use diagnostics qw(-l=fr -m=File::Compare);
compare(undef, 'titi');